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BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COMPUTERS 

Tandy 1 000 RLX HD 1 Drive 1 Meg RAM 999.00 

Tandy 1 500 HD1 Drive 640K 1179.00' 

Tandy 281 HD 1 Drive 1 Meg RAM 2049.00 

Tandy 1 000 RL HD-1 Drive-51 2K 769.00 ' 

Tandy 1 1 00 FD 1 Drive 640K 689.00 
PRINTERS 

Tandy DMP-1 07 1 20 CPS 1 59.00 ' 

Tandy DMP-302 270 CPS 469.00 

Tandy DMP-202 180 CPS 299.00 

Tandy DMP-442 300 CPS 539.00 

Tandy LP-950 Laser Printer 1 299.00 

Tandy DMP-240 1 92 CPS 8 color 415.00 

Panasonic KXP 1 1 80 1 92 CPS 1 89.00 ' 

Panasonic KXP 1 1 23 24 Wirehead 259.00 " 

Panasonic KXP 1 1 24 1 92 CPS 299.00 ' 

Okidala320300CPS 369.00 

Okidala380180CPS24WireHD 259.00 

OKI Laser 400 4PPM 699.00' 

MODEMS 

Tandy DCM-6 52.00 

Tandy DCM-7 85.00 

Cardinal 1 200 Baud External 99.00 

Cardinal 2400 Baud 129.00 



COLOR COMPUTER MISC. 

Tandy Drive Controller 89.00 ' 

Extended Basic Rom Kit (28 pin) 14.95 

64K Ram Upgrade Kit (2 or 8 chip) 39.00 

Tandy Deluxe Keyboard Kit 24.95 

HI-RES Joystick Interface 8.95 

Color Computer Deluxe Mouse 44.00 

Multi Pak Pal Chipfor COCO 3 14.95 

COCO 3 Service Manual 29.95 

Serial to Parallel Converter 59.95 

Tandy Deluxe Joystick 19.95 

Magnavox 81 35 RGB Monitor 299.00 

Magnavox Green or Amber Monitor 99.00 

CoCo3GimeChip 29.95 

Tandy Pistol Grip Joystick 26.95 

PBJ OK COCO 3 Upgrade Board 29.95 

PBJ512K COCO 3 Upgrade 89.00 

Tandy OK COCO 3 Upgrade Board 39.95 

Tandy 51 2K COCO 3 Upgrade 99.00 ' 
COLOR COMPUTER SOFTWARE 

TAPE DISK 

The Wild West (COCO 3) 25.95 

Worlds of Flight 34.95 34.95 

Mustang P-51 Flight Simul. 34.95 34.95 

Flight 1 6 Flight Simul. 34.95 34.95 



Tandy Educatioal Software 2.00 

Spinnaker Software 2.00 

Max 10 by Colorware 79.95 

AutoTerm by PXE Computing 29.95 39.95 

TW-80 by Spectrum (COCO 3) 39.95 

Telewriter 64 49.95 59.95 

TeleWriter 128 79.95 

Elite Word 80 79.95 

Elite Calc 3.0 69.95 

CoCo3512KSuperRamDisk 19.95 

Home Publishing by Tandy (CoCo 3) 35.95 

SubBattleSim.byEpyx(CoCo3) 26.95 

Thexder by Sierra (CoCo 3) 22.45 

Kings Quest III by Sierra (CoCo 3) 31 .45 

Flight Sim. II by SubLogic (CoCo 3) 31 .45 

OS-9 Level II by Tandy 71.95 

OS-9 Development System 89.95 

Multi-View by Tandy 44.95 

VIP Writer (disk only) 69.95 

VIP Integrated Library (disk) 149.95 

Prices are subject to change without notice. Please 
call for shipping charges. Prices in our retail store 
may be higher. Send for complete catalog. 

'Sale prices through 9-15-91 



CALL TOLL FREE 
1-800-341-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 
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P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (508) 486-3193 



Tandy is a registered trademark ot Tandy Corp 
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A Great Deal 

Editor: 

I am new to the CoCo Community. I 
have a secondhand 64K CoCo I received in 
exchange for an Atari game system. I also 
have a CoCo 3, a disk drive and a CM-8 
Monitor. I am 28 years old and have no 
formal computer training. It is fun teaching 
myself basic computer skills. The CoCo is 
a good computer from which to learn, and 
THE RAINBOW shows that it is much more. I 
like the insightful tips on how to fully use 
the CoCo's potential. I also believe THE 
RAINBOW is more informative than my local 
Radio Shack. THE RAINBOW is a great pub- 
lication, and I am looking forward to every 

issue. 

Andrew VanOstrand 
Rochester, New York 

Looking for FORTRAN 

Editor: 

1 want more information about using the 
CoCo 3 to write programs in FORTRAN-77. 
William Barden's article, "Computer 
Knowledge in Any Language," states that 
FORTRAN for the CoCo is not available. But 
Herschel B . Eliker asserts that FORTRAN-77, 
from Microware, has been available for 
some time (November 1989, Page 6). 

I would like to know more about this 
Microware FORTRAN product and how to 
obtain it. I own two CoCo 3s, each is 
equipped with 512K and two FD-502 disk 
drives. 1 also have the OS-9 Level 11 operat- 
ing system for these computers. 

I have research interests in computa- 
tional chemistry and want to develop some 
scientific programs for the CoCo 3 using 
FORTRAN-77. 

Grady Carney 
32 Central Avenue 
Westbury.NY 11590 

To be sure, we called Microware (again) 
and were informed that they no longer 
support OS-9 for the 6809 — they no longer 
sell FORTRAN for the CoCo. As you already 
have OS-9 Level II. consider using BASIC09 
instead of FORTRAN. BASIC09 combines a 
strong blend of FORTRAN- and Pascal-type 
structures with the ease of BASIC. 



General Assembly 

Editor: 

1 just bought a CoCo 3 and 1 would like 
to learn assembly language. Do you know if 
a cassette-based assembler (something like 
EDTASM+) still exists? 1 prefer a cassette 



program because 1 don't plan to buy a disk 
drive in the near future. I bought my CoCo 
3 only to have a machine on which to 
practice 6809 assembly language. 

Robert Dagenais 

124 Pacifique 

Lawl.PQ H7N3YI 

Canada 

Unless you work with 6809-based micro- 
controllers, it seems to us the CoCo is about 
the only place to use 6809 assembly lan- 
guage once you learn it. Oh well, to each his 
own. Contact Tandy's Express Order sys- 
tem at (800)321-3133 to obtain the cassette- 
based EDTASM. Better hurry though — the 
last time we checked. EOS had limited quan- 
tities available. 

Loading Binary Files 

Editor: 

I have Color Disk EDTASM*. How do I 
load a file that has a .BIN extension (for 
example.HAZARD.BIN)? 

Aaron Scbold 
Hillsboro, Montana 

To load a binary (.ZlU)file into Disk 
BASIC for execution, enter LOADM followed 
by the full filename in quotes. To load a 
binary file into EDTASM+, get into ZBUG by 
pressing Z. Then load the file using the LD 
command as described on Page 78 of the 
Color Disk EDTASM+ manual. 

RCIS Network Info 

Editor: 

I want to share some information about 
the RCIS Network. This network is com- 
posed of OS-9-based CoCo 3 systems only 
and links California to Florida. New Jersey 
to Canada, and a lot in between. The RCIS 
Network is almost like a Fidonet system, 
only better. Not only does the RCIS system 
network E-mail and messages on a daily 
basis, it networks BBS lists and download- 
file lists from all the systems, making it 
possible for you to "request" a file from 
another remote system and have it sent to 
your home system. The RCIS Network has 
been in operation for over two years (I am 
the SysOp of the Unknown Origin node). 
As a rule, the network does not tolerate any 
pirating. This BBS network is free to all 
users. All the SysOps are dedicated to pre- 
serving the CoCo and OS-9. 

Following is a list of current RCIS Net- 

continued on page 12 
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SOFTWARE 

Word Power 3.3: Power packed 
word-processor. Fast, Maximum Text 
Memory, 40/80 display, HELP 
Screen, Graphics, works with all prin- 
ters, 80,000 Spell Checker, Punctua- 
tion Chkr. ThoBest Rave Reviews.. 

See Older Issues (or more details. $69. 



Color Schematic Designer: $24 
RGB Patch: $1 5 Screen Dump: $1 5 
Maillist Pro:$15 Comp. Checkbk:$15 
Home Bill Manager:$15 

|ADOS3:$24 Ext. ADOS 3: $29 
Smartwatch RTC: $29 24-to-28: $10 

CoCo Max III: $39 Fonts(95): $29 
MAx 10: $34 Fonts (36): $14 
CGP220/NX1000 Color Driver: $14 
Max Edit: $14 SP Checker: $14 

CoCo Graphics Designer: $19 
Label Designer: $19 
Picture.Font.Border Disks : $7.50 ea 

CoCo Util II: Xfer programs between 
IBM & CoCo. Req. 2 drives. $39 

XenOCOpy: xfer between 300 computers .$79 

Autoterm: $34 Vterm: $39 

Telewriter 64: $57 

VIP Database lll:$69 Calc III: $69 

GAMES 

[The Quest for Thelda: $34 
Contras:$34 Crystal City: $34 
Sinistaar:$34 Kyum Gai: $29 

(Other Sundog Games Also Available) 

[Treasury Pack #1,#2 & Space Pac 
(8 Games ea): $29.95 each Pack. 
ISIots & Cards:$39 Wizd Castle:$10 

BOOKS 

500 Pokes, Peeks & EXECs: $16 
Supplement: $9 300 Pokes: $19 
All 3 Pokes, Peeks Books: $39 
Color Basic Unravelled: $39 
Disk Basic Unravelled: $19 s,o* 

Super ECB Unravelled: $19 *$? g> 



CoCo 3 Service Manual: $39 2: $29 
Multipak Service Manual: $19 
Assembly Language Prog: $18 

Addendum (for CoCo 3): $12 
Full Turn of Screw (Disto): $19 
Comp. Rainbow Guide to OS9:$19 
Compl. Rain. Guide to OS9 Dsks:$29 
Rainbow Guide OS9ll:$19 Dsk:$19 
Full Turn of the Screw: $19 
Inside OS9 Level II: $29 

Musica II: $29 Lyra:$49 

Coco Midi lnterf:$99 Software:$59 

OS9 SOFTWARE 

From Alpha Software 

Data Window: $59 Data-Merger:$19 
Presto Partner:$29 Level II Tools:$24 
Disk Manag. Tree:$29 Zapper:$19 
Multi-Menu:$19 Warp l:$34 
OS9 Level II BBS:$29 

From Burke & Burke 

RSB:$39 EzGen:$19 WildCard:$19 

Other OS9 Software... 
GSC File Xfer: $44.95 SDISK 3:$29 
OS9 RAMDISK (51 2K & 1MEG):$29 
Screen Print Util.: $19 Menu Utill:$19 
Point-&-Shoot File Selection:$19 

HARDWARE 

51 2K UPGRADE; _jrjie_abSQlutej 
best, No soldering. 120ns chips. 
Low-heat design. Comes with pic 
ture instructions & software (512KI 
Ramtest/disk/Lightning, OS9 RAM- 
DISK & Backup). ONLY $79. OK 
Board: $39 

1 MEG: $179 (OK: $129) 
64K Upgrades for CoCo II: $29 

MAGNAVOX 1CM135 RGB Color! 
Monitor w/ Tilt, Swivel & 2 Yr. 
Warranty. INCLUDES CoCo 3 RGB 
Cable, Composite Cable Set & IBM 
Cable. Only $298 

Disto Mini Controller: $74 
Disto Super Controller: $99 
Disto Super Controller II: $104 
4-in-1 Board: $109 3-in-1:$74 
RS232 Super Pack: $54 



(All our drives are TOP QUALITY! 
BRAND NEW Double-Sided Drives 
with full 1-yr warranty. Our Drive & 
2 systems include Case, PS, Drive, 
controller, official RSDOS 200pg 
manual & $60 software. 

Drive 0: $199 2 Drive Sys.: $299 

Drive Cable: $16 2: $22 4:$34 
Bare 51/4" Drive: $79 

FD501 2nd Drive Upgrade Kit:$99 
FD502 2nd Drive upgrade Kit:$109 
Toshiba 3 1/2" Drive: $79 

20 MEG Hard Drive System: $459 
ko MEG Hard Drive System: $549 
All our hard drive systems are 
complete read-to-run system for 
use under Basic & OS9. 
CoCo XT: $69.95 w/ RTC: $99.95 
CoCo XT ROM: $19.95 
HYPER IO: $29 HYPERIII:$12 

512KCOC0 3:$229 

Intronics EPROM Programmer: $129 
Eraser: $49 Both for $154 

Keyboard Extension Cable: $39 
CoCo 3 Keybd. $39 w/ Cabl: $69 
CoCo 2 Keybd $29 w/ Cabl: $49 

Zoom 2400 Modem w/ 7yr warr: $99 
Communications Extravaganza] 
2400 w/ Modem, Softw., Cable: $149 

Magnavox RGB Cable: $1 9 

Serial-to-Parallel Interface: $39 

15" Sheilded Multipak Extension:$36 

40-pin Y Cable: $34 

RGB Analog Extender: $19 

Modem Cable (4-25 pin): $1 5 

RS232 2 Position Switcher: $29 

Hi-Res Joystick Interface: $1 1 

Advanced Gravis Joystick: $59 

Multipak Locking Plate: $8 

Star Ribbons: $8.50 Color: $12.95 

RSDOS 2.1 Chip: $29.95 
68B09E Chip: $14 GIME Chip:$39 
Multipak PAL Chip w/ instructions: 
$15 (specify Multipak Model #) 



MICROCOM SOFTWARE #1387 Brighton Henrietta Town Line Rd •Rochester.NY 14623 
To Order: All orders $99 & above (except Printers, Drives, Monitors, Computer) shipped 2nd Day Air at no extra Charge in Continental 
US. We accept Visa,MC,Discover,Amex (3% sur), check, MO & School PO's. COD Orders (<$100) within US add $5 extra. Please add 5% 
shipping (min $3) S&H in US & 10% (min $5) for Canada, Alaska & PR. All foreign orders except Can. pay actual shipping charges (min 
$5) . NYS residents please add sales tax. Monitors ($12 S&H/$40 in Can.); Drives ($10 S&H/$30 in Can); Computers ($8 S&H; $25 in Can). 
For Orders (10-5) pm M-Sat: 1-800-654-5244. Tech Info & Order Status (3-5 pm): 716-292-1786 



Add the IBM extended character set 
to the CoCo 3's graphics 





by Geoff Friesen 



hen the Color Computer 3 
made its debut several 
/ years ago, it provided a va- 
riety of new and exciting 
features for CoCo users. 
My favorite is the HPRINT command. Ear- 
lier CoCos required a lot of cumbersome 
programming to mix text and graphics. 
HPRINT makes it possible to combine text 
and graphics in a simple, straight forward 
manner. 

Despite its benefits, however, the stan- 
dard font used by HPRINT on the Hi-Res 
screens often leaves something to be de- 
sired. This font is limited to the 96 standard 
ASCII characters (codes .t: through 127, 
inclusive). There is no provision for special 
characters. It might be argued thai these 
characters can he created via the other graph- 
ics commands, such as HL INE. but this takes 
away from the simplicity offered by HPRINT. 

I do much of my programming with an 
IHM personal computer. The IBM provides a 
nice font with all kinds ol characters. What 
if the Color Computer had this same font? 
Not only would it be possible to draw belter 
screens, but translating IBM BASK' programs 
lo the Color Computer would be easier. 

The CoCo 3 provides iwo fonts: The 
standard foul begins at SF09D and contains 
the ASCII character set. The second font 
starts ai sfaof and contains a rather uninter- 
esting and incomplete set of punctuation 
and scientific characters. Each font pro- 



Geoff Friesen has a bachelor of science 
degree in computer programming and hai 

written several articles for computer maga- 
zines, lie can he contacted at General 
Delivery. Dauphin. ,W« R7N 273, Canada. 
Please include an SASE when requesting a 

reply. 



vides enough space for 96 characters, and 
each character requires eight bytes. I wrote 
a program that loads I he second foul table 
with the last ')<i characters of the IBM ex- 
tended character set. as shown in Figure I . 
I also devised a simple way to switch be- 
tween the standard anil alternate fonts, al- 
low ing your programs lo display a total of 
192 different characters on the CoCo 3's 
HSCREENs. 

Program Notes 

The program in Listing I. MKFONT.BAS. 
pokes the IBM character codes into the alter- 
nate font table beginning at SFAOF. MKFONT 
then saves this font lo disk as a file called 
IBM.FNT. 

LOADER. BAS. the program in Listing 2. 
first loads IBM. F NT into the lable from disk. 
It then displays the new sel of characters. 

Minor Technical Notes 

Those of you who like to hack around in 
the BASIC internals might want to know 
how this table switching works. When I 
disassembled the HPR1NI command. I found 
the follow ing instruction at Address SF.I-C8: 

LDU #JF090 

This instruction loads the starling ad- 
dress of the font table into the I' register. If 
this address is changed to SFAOF, the alter- 
nate font table is selected. 

Using I'onI Magician 

You can use the new foul when design- 
ing windows and menus. Close examina- 
tion of Listing 2 reveals how you can use 
the IBM extended character sel in your own 
programs. Variable CS (I used this to mean 
"character sel' - ) is used lo select one of the 
tables. When a value of (zero) is stored in 
CS, the standard font table is used. When CS 



is I. the alternate table is used. The code 
from Line 260 lo Line 275 is very important 
— it pokes the correct values into memory 
for the character sel you wanl to use. 

The IBM codes for the new characters 
range from 160-255, inclusive. To use one of 
these characters, you must first load ibm. fnt 
from disk (Line 120). Then select the alter- 
nate font by setting CS (or whatever vari- 
able you choose to use) to a value of I. 
Subtract 128 from the IBM code for the 
character you want, and use HPR I NT to place 
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Listing 1: MKFONT 

10 * FONT MAGICIAN 

20 "WRITTEN BY GEOFF FRIESEN 

30 'COPYRIGHT (C) AUGUST 1991 

40 'BY FALSOFT. INC. 

50 'RAINBOW MAGAZINE 

100 'MKFONT: MAKE IBM.FNI 

105 ' 

110 WIDTH 32 

115 PRINT "MKFONT: MAKE IBM.FNT" 

120 PRINT 

125 F$-"IBM.FNT" 

130 AD-&HFA0F 

135 READ B$ 

140 IF B$-"*" THEN 160 

145 POKE AD.VAL("&H"+B$) 

150 AD-AD+1 

155 GOTO 135 
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the character on the screen. This is shown 
from Line 300 to the end of Listing 2. The 
characters are shown in Figure 1, along 
with the IBM codes and actual CoCo codes 
(IBM code - 128) to get them. Where appli- 
cable, the figure also includes the CoCo 
characters you can use to generate charac- 
ters in the new font. HPRINT either the 



character string (CHR$), as in Listing 2, or 
the appropriate string of alphanumeric CoCo 
characters. The new font and the techniques 
used to display it work on all CoCo 3 
HSCREENs (40- and 80-column). 

I hope you enjoy using this font. It should 
make programming and using the CoCo 
more enjoyable. □ 
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55 


7 


T 231 


103 


9 


^ 


184 


56 


8 


* 232 


104 


h 






185 


57 


9 


233 


105 


i 






186 


58 


: 


a 234 


106 


J 


Tl 


187 


59 


/ 


5 235 


107 


k 


J) 


188 


60 


< 


a> 236 


108 


l 


Jl 


189 


61 


= 


<p 237 


109 


m 


J 


190 


62 


> 


e 238 


110 


n 


1 


191 


63 


? 


n 239 


111 


o 


L 


192 


64 


@ 


= 240 


112 


P 


1 


193 


65 


A 


1 241 


113 


q 


T 


194 


66 


B 


> 242 


114 


r 


\ 


195 


67 


C 


< 243 


115 


s 




196 


68 


D 


f 244 


116 


t 


T 


197 


69 


E 


J 245 


117 


u 


r 


198 


70 


F 


+ 246 


118 


V 




199 


71 


G 


= 247 


119 


w 


1 


200 


72 


H 


248 


120 


X 


If 


201 


73 


I 


249 


121 


y 


Jl 


202 


74 


J 


250 


122 


z 


If 


203 


75 


K 


J 251 


123 




L 


204 


76 


L 


252 


124 






205 


77 


M 


' 253 


125 




JL 
I 


206 
207 


78 
79 


N 




■ 254 
255 


126 
127 










Figure l:Character Codes 







160 


SAVEM Fl 


.&HFA0F.AD-1.0 






165 


PRINT "FINISHED" 










170 


• 


















175 


•FONT DATA 


(IBM 


255) 




180 


• 


















185 


DATA 


IC 


00 


78 


0C 


7C 


CC 


7E 


00 


190 


DATA 


38 


00 


70 


30 


30 


30 


78 


00 


195 


DATA 


00 


IC 


00 


78 


CC 


CC 


78 


00 


200 


DATA 


00 


IC 


00 


CC 


CC 


CC 


7E 


00 


205 


DATA 


00 


F8 


00 


F8 


CC 


CC 


CC 


00 


210 


DATA 


FC 


00 


CC 


EC 


FC 


DC 


CC 


00 


215 


DATA 


3C 


6C 


6C 


3E 


00 


7E 


00 


00 


220 


DATA 


38 


6C 


6C 


38 


00 


7C 


00 


00 


225 


DATA 


30 


00 


30 


60 


C0 


CC 


78 


00 


230 


DATA 


00 


00 


00 


FC 


C0 


C0 


00 


00 


235 


DATA 


00 


00 


00 


FC 


0C 


0C 


00 


00 


240 


DATA 


C3 


C6 


CC 


DE 


33 


66 


CC 


0F 


245 


DATA 


C3 


C6 


CC 


DB 


37 


6F 


CF 


03 


250 


DATA 


18 


18 


00 


18 


18 


18 


18 


00 


255 


DATA 


00 


33 


66 


CC 


66 


33 


00 


00 


260 


DATA 


00 


CC 


66 


33 


66 


CC 


00 


00 


265 


DATA 


22 


88 


22 


88 


22 


88 


22 


88 


270 


DATA 


55 


AA 


55 


AA 


55 


AA 


55 


AA 


275 


DATA 


DB 


77 


DB 


EE 


DB 


77 


DB 


EE 


280 


DATA 


18 


18 


18 


18 


18 


18 


18 


18 


285 


DATA 


18 


18 


18 


18 


F8 


18 


18 


18 


290 


DATA 


18 


18 


F8 


18 


F8 


18 


18 


18 


295 


DATA 


36 


36 


36 


36 


F6 


36 


36 


36 


300 


DATA 


00 


00 


00 


00 


FE 


36 


36 


36 


305 


DATA 


00 


00 


F8 


18 


F8 


18 


18 


18 


310 


DATA 


36 


36 


F6 


06 


F6 


36 


36 


36 


315 


DATA 


36 


36 


36 


36 


36 


36 


36 


36 


320 


DATA 


00 


00 


FE 


06 


F6 


36 


36 


36 


325 


DATA 


36 


36 


F6 


06 


FE 


00 


00 


00 


330 


DATA 


36 


36 


36 


36 


FE 


00 


00 


00 


335 


DATA 


18 


18 


F8 


18 


F8 


00 


00 


00 


340 


DATA 


00 


00 


00 


00 


F8 


18 


18 


18 


345 


DATA 


18 


18 


18 


18 


IF 


00 


00 


00 


350 


DATA 


18 


18 


18 


18 


FF 


00 


00 


00 


355 


DATA 


00 


00 


00 


00 


FF 


18 


18 


18 


360 


DATA 


18 


18 


18 


18 


IF 


18 


18 


18 


365 


DATA 


00 


00 


00 


00 


FF 


00 


00 


00 


370 


DATA 


18 


18 


18 


18 


FF 


18 


18 


18 


375 


DATA 


18 


18 


IF 


18 


IF 


18 


18 


18 


380 


DATA 


36 


36 


36 


36 


37 


36 


36 


36 


385 


DATA 


36 


36 


37 


30 


3F 


00 


00 


00 


390 


DATA 


00 


00 


3F 


30 


37 


36 


36 


36 


395 


DATA 


36 


36 


F7 


00 


FF 


00 


00 


00 


400 


DATA 


00 


00 


FF 


00 


F7 


36 


36 


36 


405 


DATA 


36 


36 


37 


30 


37 


36 


36 


36 


410 


DATA 


00 


00 


FF 


00 


FF 


00 


00 


00 


415 


DATA 


36 


36 


F7 


00 


F7 


36 


36 


36 


420 


DATA 


18 


18 


FF 


00 


FF 


00 


00 


00 


425 


DATA 


36 


36 


36 


36 


FF 


00 


00 


00 


430 


DATA 


00 


00 


FF 


00 


FF 


18 


18 


18 


435 


DATA 


00 


00 


00 


00 


FF 


36 


36 


36 


440 


DATA 


36 


36 


36 


36 


3F 


00 


00 


00 


445 


DATA 


18 


18 


IF 


18 


IF 


00 


00 


00 


450 


DATA 


00 


00 


IF 


18 


IF 


18 


18 


18 


455 


DATA 


00 


00 


00 


00 


3F 


36 


36 


36 


460 


DATA 


36 


36 


36 


36 


FF 


36 


36 


36 


465 


DATA 


18 


18 


FF 


18 


FF 


18 


18 


18 


470 


DATA 


18 


18 


18 


18 


F8 


00 


00 


00 


475 


DATA 


00 


00 


00 


00 


IF 


18 


18 


18 


480 


DATA 


FF 


FF 


FF 


.FF 


FF 


FF 


FF 


FF 


485 


DATA 


00 


00 


00 


00 


FF 


FF 


.FF 


FF 


490 


DATA 


F0 


F0 


F0 


,F0 


F0 


F0 


F0 


F0 


495 


DATA 


0F 


0F 


0F 


,0F 


,0F 


,0F 


,0F 


0F 


500 


DATA 


FF 


FF 


FF 


.FF 


00 


00 


00 


00 


505 


DATA 


00 


00 


76 


.DC 


C8 


,DC 


.76 


00 


510 


DATA 


00 


78 


CC 


.F8 


.CC 


.F8 


,C0 


C0 


515 


DATA 


00 


FC 


CC 


,C0 


.C0 


,C0 


,C0 


.00 


520 


DATA 


00 


FE 


6C 


,6C 


.6C 


,6C 


.6C 


.00 


525 


DATA 


FC 


.CC 


60 


.30 


.60 


.CC 


.FC 


.00 


530 


DATA 


00 


.00 


7E 


,D8 


,D8 


,D8 


.70 


.00 


535 


DATA 


00 


.66 


66 


.66 


.66 


.7C 


.60 


,C0 


540 


DATA 


00 


.76 


.DC 


.18 


.18 


.18 


.18 


.00 


545 


DATA 


FC 


.30 


.78 


.CC 


.CC 


.78 


.30 


.FC 
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550 DATA 38.6C.C6.FE.C6.6C38.00 590 DATA 30.30. FC. 30. 30.00. FC. 00 

555 DATA 38.6C.C6.C6.6C ,6C . EE .00 595 DATA 60.30. 18.30.60.00. FC. 00 

560 DATA 1C.30.18.7C.CC.CC.78.00 600 DATA 18.30.60.30. 18.00, FC. 00 

565 DATA 00.00.7E .DB . DB .7E.00.00 605 DATA 0E . IB . IB. 18. 18. 18. 18. 18 

570 DATA 06.0C.7E.DB.DB.7E.60.C0 610 DATA 18. 18. 18. 18. 18. D8 ,D8. 70 

575 DATA 38. 60. C0. F8.C0. 60.38.00 615 DATA 30. 30.00. FC .00.30.30.00 

580 DATA 78. CC.CC.CC.CC.CC.ee. 00 620 DATA 00. 76. DC. 00. 76. DC .00.00 

585 DATA 00. FC .00. FC.00. FC .00.00 625 DATA 38. 6C ,6C. 38.00.00.00.00 



630 DATA 00.00.00.18.18.00.00.00 
635 DATA 00.00.00.00.18.00.00.00 
640 DATA 0F.0C.0C.0C.EC.6C.3C.1C 
645 DATA 78.6C.6C.6C.6C.00.00.00 
650 DATA 70.18.30.60.78.00.00.00 
655 DATA 00.00.3C .3C.3C.3C.00.00 
660 DATA 00.00.00.00.00.00.00,00 
665 DATA * 











140 


• 


265 


IF CS-1 THEN X-&HFA:Y-&H0F 




/ 






. / 




145 


'DRAW MAIN BOX 


270 


POKE &HEFC9.X 




V 


150 


.... 254 


150 


■ 


275 


POKE 8HEFCA.Y 






230 


.... 137 
.... 123 


155 
160 


C-l: R-l: NC-39: NR-22 
GOSUB 300 


280 
285 


RETURN 








310 




END 


.... 210 


165 
170 
175 


'DRAW CHARACTER SET 


290 
295 

300 


•DRAW BOX 
UL$-CHR$(201-128) 












180 


1-32: R-3: C-3 


305 


URJ-CHR$(187-128) 






185 


HPRINT (C.R).CHR$(I) 


310 


LL$-CHR$(200-128) 


Listing 2: LOADER 




190 


C=C+2: IF C<38 THEN 200 


315 


LR$-CHR$(188-128) 






195 


C-3: R-R+2 


320 


HL$-CHR$(205-128) 


10 'FONT MAGICIAN 




200 


I-I+l: IF K128 THEN 185 


325 


HL$-STRING$(NC-2.HL$) 


20 'WRITTEN BY GEOFF FRIESEN 


205 


' 


330 


VL$-CHR$(186-128) 


30 'COPYRIGHT (C) AUGUST 


1991 


210 


'DRAW MESSAGE AND BOX 


335 


HPRINT (C.R).UL$ 


40 'BY FALSOFT. INC. 




215 


• 


340 


HPRINT (C+1.R).HL$ 


50 'RAINBOW MAGAZINE 




220 


C-28: R-16: NC-9: NR-3 


345 


HPRINT (C+NC-1.R).UR$ 


100 'LOADER: IBM.FNT LOADER 


225 


GOSUB 300 


350 


FOR 1-1 TO NR-2 


105 ' 




230 


CS=0: GOSUB 260 


355 


HPRINT (C.R+I ) . VL$ 


110 'INITIALIZE 




235 


HPRINT (C+l.R+1). "IBM.FNT" 


360 


HPRINT (C+NC-1.R+I).VL$ 


115 ' 




240 


GOTO 240 


365 


NEXT I 


120 LOADM "IBM.FNT" 




245 


• 


370 


HPRINT (C.R+NR-1).LL$ 


125 CS-1: GOSUB 260 




250 


'TOGGLE HPRINT CHAR SETS 


375 


HPRINT (C+1.R+NR-1).HL$ 


130 CMP: HSCREEN 2: HCLS 


14 


255 


■ 


380 


HPRINT (C+NC-1.R+NR-1).LR$ 


135 HCOLOR 1: PALETTE 1. 


51 


260 


IF CS-0 THEN X-&HF0:Y-&H9D 


385 


RETURN _. 



SUPER SUPER SPECIAL 



All 530 Public Domain Programs-$145 Value 
All 1,020 Subscription Programs-$260 Value 
All 250 Graphic Pictures-$70 Value 

ENTIRE PACKAGE Regularly $475 




$279.°°! 

J m SEE PAGE 39 FOR DETAILS w 

</A NX K3 

T&D Subscription Software • 2490 Mies : 




Each Set Of 10 Disks 

Only $35.00 ! 
Buy 2, Get One Free! 



Set#1 
Clipart 

Space Pictures 
Animals 
More 



Set #2 

Celebrities 
Cartoon Characters 
Great Graphics 
More 



Set #3 

Adult Only 
R-Rated 
Beautiful Women 



Subscription Software • 2490 Mies Standbh Dr., HoBand, Ml 49423 • 616-399-9648 



— 



August 1991 THE RAINBOW 



Print#-2 



A festive Review 



I know the focus of this issue of THE 
RAINBOW is graphics, which is one of 
my favorite subjects, but I want to talk 
about the CoCo Community in gen- 
eral and this past April's RAINBOWfesl 
in particular. 

We had one of our better RAINBOWfests 
in Chicago the last weekend in April. Al- 
though the show was a little smaller than it 
has been due to a fewer number of exhib- 
itors and attendees, everyone 1 spoke with 
was very pleased with the turnout on both 
sides. 

This is. after all. the secret of the CoCo 
Community: Lots of people from lots of 
places meeting to talk about their favorite 
computers, to see the new offerings from 
vendors and to just plain have fun. 

Our CoCo Community Breakfast was 
completely sold out. all our "test T-shirts 
were gone before noon on Saturday, and 
Delphi Saturday Night was extremely well- 
attended. 

Most important. I think, was the confi- 
dence expressed about the CoCo and its 
future from everyone with whom I spoke. 
And the recurrent theme was something we 
have known for years and years — the 
Color Computer is an excellent machine 
that will serve many, many needs for many 
more years. 

It was also good to see so many new 
products introduced at RAINBOWfesl. It just 
proves once again that the spirit of CoCo is 
well. I predict your Color Computer will be 
around — and useful — for many years to 
come. 

Also sparking interest at RAlNBOWfest 
was the exhibition of production models of 
two computers that are vying to become the 
"CoCo 4" machine — the System IV from 
Delmar Company and the TC-9 Tomcat from 
Frank Hogg Laboratory. (FHL also showed 
the TC-70.) A third computer, the MM/i. 



which has no production date yet. was shown 
bv IMS. 



It was good to 
see so many 
new products 
introduced at 
RAlNBOWfest. It 
just proves 
once again 
that the spirit of 
CoCo is well. 



THE rainbow plans full-scale reviews 
of production models of these machines as 
well as other machines that may come to 
market in the future. A major part of our 
criteria, of course, is that the machine is 
available to you for purchase, should you 
desire to do so. We will review no computer 
that is not an actual production machine. 

I chaired a seminar on Saturday at RAlN- 
BOWfest that featured representatives of 
IMS. Delmar and Frank Hogg Laboratory. 
In response to my questions, Delmar said if 



a computer is ordered, it should be received 
by the purchaser within two weeks; Hogg 
said it would be received "in June" due to 
back orders and IMS said it had no shipping 
date at that lime. Based on these estimates, 
we expect to review the available machines 
between now and the end of the year. 

In connection with this, we also plan 
more reviews of software available to run 
on these machines as the software becomes 
available to us. We intend to be able to tell 
you what software runs on which machines, 
to a greater or lesser degree, and what 
peripherals run on the machines (those you 
now own for your CoCo and new equip- 
ment which you might want to purchase). 
Looking into our own future. THE RAIN- 
BOW intends to somewhat broaden its cov- 
erage of 6S(>oo-based computing, but has no 
intention of neglecting basic coverage of 
the Color Computer. Thus, no matter what 
sort of system you have. THE rainbow will 
continue to provide support for you. 

Probably the most-asked question I 
answered at RAlNBOWfest was if we plan to 
end our coverage of purely "CoCo" com- 
puters and computing. 1 answered by telling 
all those who asked that, since sometime in 
1982. not a single day (except for one last 
August, always our worst month) has gone 
by when there has not been a new subscrip- 
tion order forTHERAlNBOW in our mailbox. 
This means, of course, that new mem- 
bers are joining the ranks of our CoCo 
Community every day and we owe them the 
support they need to learn to use their 
computers effectively. At the same time, 
we acknowledge many of you want a little 
more technical information. 

It is called striking a balance. Fortu- 
nately, the CoCo Community is big enough 
for all of us. 

— Lonnie Falk 
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and smell the CoCo! 




Bring your drawings and 
designs to vivid, colorful 
life with the amazingly ^'? ; 
popular CoCo Max III! 

Z(X)m! Rotate! Animate! 13 Fantastic Fonts! 40 paint 
brush shapes! CoCo Max III dazzles the eye! Get crisp, clear picture reso- 
lution ( two full hi-res 320" 192 screens ) . . . a big, big edit window ... 28 
"eat-your-heart-out" drawing tools. Rotate at miniscule 1.5° angles. 
Undo boo-boos with a click. Animate for special effect. Pick'n'choose from 
16 colors out of 64. Go absolutely fruity with fonts (8 sizes, 5 styles & 
more available! ) and an astounding 40 different brush styles! No wonder 
this software is recognized as the CoCo community's all-time favorite! 
Works with both 128Kand 5I2K. Colors print in 5 shades of gray. Printers supported 
Epson RX, FX. MX, LX and compatibles; Star/Gemini NX- 10, NX- 1000; DMP100, 105, 
106, 1 10. 120, 130. 200; OKI 82A. 182, 192 CGP-220 ( B&W). 

CoCo Max m Add Ons 

Max Fonts disks: 95 fonts on 4 disks Now only $29.95 

Or two sets of two disks each $14.95 

Max Edit The font editor as creative as your imagination Only $1 4.95 
Color Printer drivers NX- 1000 Rainbow. CGP-220 and 
Okimate 20. For glorious color that wins hands down! $14.95 



&& 



"*<** 



GetMaxlO- the CoCo* 
word processor that's 
fun and furiously fast! 

Get that easy-as-pie Macintosh feel without giving 
up your first-born! This program will stretch your CoCo to the limit Mix 
graphics, text, large headlines, arrange multiple columns, you name it . . . 
Max- 10 will swiftly oblige. Includes paper-saving full-page preview 
(graphics, too! ) to make your prose look proud. This is the CoCo word 
processor that will leave you speechless. Printers supported: Epson FX, 
MX RX, IX and compatibles; DMP 105, 106, 130; CGP 220 (B&W); OKI 
182, 92, 192; STAR NX- 10, NX- 1000. 

Max-10Add0ns 

Max-10 Fonts 36 super fonts on 2 disks. Call for list .... Now$14.95 
Spell Checker 35.000 word dictionary. Online spell checking 
to make you look the perfect professional $1 4.95 



Buy both CoCo Max III 
andMax-10 




Call 1 -800-221 -091 6 1 -203-259- 7713 



How to order: Use Visa, Mastercard or M.O. C.O.D. add $4.00 extra. Purchase Orders 
subject to credit approval. Connecticut residents add 8% sales tax. Shipping $4.00 per order, 
usually UPS ground UPS 2nd day air $6.00 extra. Next day service available. Canada: 
$6.00 per order (Airmail ). Outside U.S. & Canada add 1 0% of order total. 



[COLORWARE 



303 Linwood Ave. 
Fairfield, CI 06430 




work Systems. Please post the numbers or 
just talk about the network so OS-9 users can 
be made aware of a nearby system. 

RCIS Headquarters/New Milford. NJ/(201 )967-1061 
ColorGalaxyMW/LagunaHills.CA/(714)83I-6530 
Foundalion/Ridge Manor. FL/(904) 583-4320 
Color Galaxy AN/Sama Ana. CA/(714) 545-5156 
Chip to Chip/Sydney. NS. Canada/(902) 567-2262 
Color Galaxy PG/Rivcrside.CA/(714) 768-7155 
Arthurs Court/Palm Springs. CA/(619) 320-5072 
Unknown Origin/Parsippany. NJ/(201) 402-6352 

Scott Amendolaro 

II Alba Place 

Parsippany, NJ 07054 

Blown-a-Link 

Editor: 

I have installed my CoCo 3 in an eight- 
slot PC box. Due to space limitations. I had 
to link the bus of the CoCo to the controller 
with a ribbon cable. Now all of it works 
fine, except the system doesn't work in No- 
Halt mode (I use OS-9). 

Also, when I tuned it (by shortening the 
distance of the two connectors on the cable), 
my main 68B09E CPU blew up. I had to order 
another. Has somebody solved this prob- 
lem, either by software patches and/or hard- 
ware alterations? 

Maarten AMJ Van Wamelen 

3 Lynmetestraat 

Oedelem. Belgium S730, EEC 

Mold #2894 

"Interrupted Again" on Page 28 of this 
issue might he of use to you. 

Alternating Speeds 

Editor: 

In the article titled "Turbo Light" (May 
1991, Page 53), it was indicated that the 
clock speed of a CoCo 3 could be increased 
from 0.89 MHz to 1.7 MHz by entering POKE 
65497 . 0. Although the high speed is great, 
it scrambles the output of my TP- 10 printer. 
Are these problems connected? How do 1 
get out of the high-speed mode short of 
turning the computer off? 

Brian Matosian 

11655 Laurelwood Drive 

Studio City. CA 91604 

Yes! To print while the CoCo 3 is in the 
high-speed mode, you must reduce the CoCo 
3' s baud to half that expected by the printer. 
To return to normal speed, enter POKE 
65496.0. 

A Look at the Past 

Editor: 

I have an MC-10 computer (remember 
those?), and I recently pulled it out of the 
closet. Do you, or any of your readers. 



know where I can find a terminal program 
or any other software or hardware for it? 
Although it does not have much use. I kind 
of cherish it and would like to use it as a 
terminal to hook up to my CoCo 3. 

I remember an issue, or issues, of THE 
RAINBOW about the MC-io. I would like to 
order these issues if at all possible. 

Adam Scott 

P.O. Box 37 

Taylor stown, PA 15365 

OK, following is a list of articles names 
along with issue and page number. Happy 
hunting! 

"Peeking Into the Hidden Commands" 

— Sep. 83, Page 99 
"MC-10 Memory Map" 

— Jan. 84. Page 309 
"Prospecting the MC-10" 

— Feb. 84. Page 314 
"Kid CoCo is No Lightweight" 

— Aug. 83. Page 174 
"Opening CoCo's Library" 

— Oct. 83. Page 196 
"A Command Summary" 

— Sep. 83. Page 101 
•Two for the 10" 

— Aug. 83. Page 67 

Tic Tac/Blackjack 

Editor: 

I need help. I recently entered two pro- 
grams into my computer: Tic-Tac (April 
1991, Page 50) and Blackjack (March 1991, 
Page 10). I have identical problems with 
both programs. 

After correcting all typos and thoroughly 
checking both programs against their list- 
ings, I decided to run Tic-Tac. (This was 
several days after I turned off all my equip- 
ment.) I got a UL error in Line 1 1 , which says 
G0SUB 911. I tried to go to Line 911 and 
found I couldn't list any lines after Line 1 1 . 
But I could list the entire program if I turned 
the system off and started it again. 

So, I started again and listed the program 
from the beginning and watched it carefully 
as it printed. I found a mystery line number. 
Line 12601 , after Line 532. And Line 532 had 
been changed! 

I fixed this, and when I ran the program, 
it functioned perfectly. But after shutting 
the system off and starting it again, the 
same thing occurred, but with different line 
numbers. The same thing happens with 
Blackjack. What is happening? 

Charles Freiburg 

2503 Hamilton Avenue 

Glenshaw, PA 15116-1907 

We'll keep checking on our end but it 
sounds to us like you saved the program to 
disk while the CoCo was in the high-speed 



mode. Doing this garbles the file, often in 
strange places. And it's easy to do. Tic-Tac 
uses the high-speed poke. If you make cor- 
rections, run the program to check it, then 
immediately save it to disk, it will be saved 
at high-speed. If this is the case, the file is 
permanently garbled. Always enter POKE 
65496 . to slow the computer down before 
saving a program. 

Another possibility is that the connec- 
tors on the disk controller are getting dirty. 
Clean them using a pencil eraser and see if 
that helps. 

Anyone Seen Bob? 

Editor: 

I recently purchased a CoCo 3 and re- 
membered a program called CoCo 3 Crib- 
bage written by Bob Van der Poel. The 
program was mentioned in his fall 1987 
newsletter. I wrote to inquire about the 
program but. to my dismay, the letter was 
returned with no forwarding address. I have 
some excellent programs written by Bob 
and would really like his CoCo 3 Crihbage 
program, if possible. Does anybody out 
there in CoCo land know where this super 
CoCo programmer lives now? 

Glenn Taylor 

Box 1221 

Lusk. WY 82225 

The most recent address we have for Bob 
van der Poel Software is: 

P.O. Box 57 
Wynndel.B.C. V0B2NO 
Canada 

RAM Disks 

Editor: 

I have recently used RDSK . BAS by Daniel 
Jimenez and found it worked perfectly. I 
wonder if anyone else who has used it 
knows how (if it's possible) to generate 
more than 27 granules on the RAM disk or to 
make it compatible with binary programs 
like REH0TE2.SYS and 0U3.BIN. Are there 
any other RAM-disk programs that operate 
on a 1 28K CoCo 3? 

1 own an FD-502 double-sided disk drive 
made by Tandy, but when I boot B00T6 .BIN 
or CHARGER.BIN, I still am unable to use 
both sides. Does anyone have any sugges- 
tions that might help? 

Richard Melnick 

RR2,Site7,CompB-l 

Kingston, NS BOP 1 NO 

Canada 

The Total Figure 

Editor: 

I have a question concerning "The Total 
Figure" (February 1990. Page 27). Page 45 of 
the May 1990 issue of THE RAINBOW carried 
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a correction that stated the "save and load 
functions will not work with Extended Color 
BASIC Version 1.0." 

I have a CoCo 3. which I understand is 
Version 2.1, yet I am unable to successfully 
run this program. I retyped it to make sure 
and used all methods to debug it, but no 
luck. Is the version in the May correction in 
error or did 1 miss a later correction? 

Floyd Jackson 
Wheelersburg, Ohio 

The program does not save or load files 
correctly with Disk BASIC 1.0 or 2.0, or with 
ADOS. However, there should be no prob- 
lem using it with Disk BASIC I.I or 2.1. Just 
because you have a CoCo 3 does not mean 
you have Disk BASIC 2.1. Check the first Uni- 
on the CoCo 3 screen when you first turn on 
the computer. 

Program Protection 

Editor: 

I'm an eighth grader who is just learning 
to program with a CoCo 3. 1 am writing a 
diary program (for my sister) that would 
require entering a code to get in the file, but 
pressing the BREAK key makes the codes 
useless. It would also be possible to use 
LIST to enter the program. Could you show 
me a simple step to disable keys and com- 
mands? 

Danny Queck 

21 Vale Drive 

Vincentown, NJ 08088 

Bunches of pokes to disable CoCo func- 
tions can be found in the Pokes, Peeks 'n 
Execs series of books from Microcom Soft- 
ware. To disable the BREAK key, enter 

POKE &HE414.0:POKE &HE42A.0 

To restore the BREAK function, enter 

POKE &HE414.3:P0KE &HE42A.3 

Share and Share Alike 

Editor: 

Thank you for publishing my letter in 
the April issue. I've been a loyal reader 
since 1984, and I found out firsthand what 
CoCo Community really means. Every day 
it seems I find a letter in the mail — post- 
marked from Maine to California — each 
one offering help in my search for amateur 
radio software for the CoCo. I want to share 
with other readers what I have learned. 

There is a great deal of software for both 
amateur-radio and shortwave users. The 
problem is knowing where to look. The first 
source is Marty Goodman. His classic Wefax 
and RTTY programs are available by writing 
to him in care of THE RAINBOW. The next 
source is Dynamic Electronics (P.O. Box 



896, Hartselle, AL 35640). This company has 
too many programs to list, but they offer a 
catalog. I purchased the Morse terminal 
program and it works great. The service 
was excellent and the program worked as 
advertised. The next source is courtesy of 
Steve Ford. AMSAJ (P.O. Box 27, Washington, 
DC 20044) is offering a new satellite-track- 
ing program for the CoCo 3. The price for 
nonmembers is S49.95. CoCoPact and Co- 
CoPact3 (both with numerous features and 
PBBS software) for packet radio come on 
one disk. For further information write to 
Monty W. Haley (WJ5W), Route 1 . Box 210- 
B, Evening Shade, AR 72532. Last, but not 
least, is an RTTY program for a terminal 
unit. It has a split-screen, SELCAL, several 
Baudot speeds and 300-baud ASCII. Write to 
James Sanford (WBAGC). 20 Glen Forest 
Drive, Hampton, VA 23669. 

I hope this information will help end the 
myth of no amateur software for our be- 
loved CoCo. Thanks again to THE RAIN- 
BOW, and thank you to the very-much- 
alive-and-well CoCo Community! 

Ed Howell 
Caledonia, New York 

Disassembling BASIC 

Editor: 

I am a 1 7-year-old computer program- 
mer who works with both Extended Color 
BASIC 2.1 and 6809 assembly language. I 
have a CoCo 3 and wonder if you could 
point me to an easy-to-understand book or 
manual that disassembles the BASIC ROM. I 
am looking for the addresses of BASIC'S 
commands (i.e., Basic's CLS command is 
located at SA928. etc.) Please help! 

Jason Smith 

329 Railroad Street 

Tamaqua, PA 18252-1334 

For disassemblies and memory maps, 
check out the Unraveled series written by 
Spectral Associates and sold by Microcom 
Software. 



the rainbow welcomes letters to the 
editor. Mail should be addressed to: 
Letters toltaiHbow, The Falsoft Build- 
ing, P.O. Box 385, Prospect, K¥ 4M59. Let- 
ters should include the writer's full name 
and address. Letters may be edited for 
purposes of clarity or to conserve space. 

Letters to the editor may also be sent 
to us through our I>dphi CoCo sig. From 
theCoCosio prompt, type RAi to take 
you into the Rainbow Magazine Serv- 
ices area of the sic. At the rainbqw> 
prompt, type Let toreach the letters> 
prompt and then select Letters for Pub- 
lication. Be sure to include jour com- 
plete name and address. 



About 

Your 

Subscription 



Your copy of the rainbow is sent 
second class mail. You must notify us of 
a new address when you move. Notifica- 
tion should reach us no later than the 1 5th 
of the month prior to the month in which 
you change your address. Sorry, we can- 
not be responsible for sending another 
copy when you fail to notify us. 

Your mailing label also shows an ac- 
count number and the subscription expi- 
ration date. Please indicate this account 
number when renewing or correspond- 
ing with us. It will help us help you better 
and faster. 

For Canadian and other non-U. S. sub- 
scribers, there may be a mailing address 
shown that is different from our editorial 
office address. Send your correspondence 
to our editorial offices at Falsoft. Inc.. 
The Falsoft Building. P.O. Box 385, Pros- 
pect. KY 40059. 
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Ober 5-6, 1991 

Inn Northlake 




I Well, once again 

| CoCoPRO! invites 
I you to join with 

i hundreds of fellow 
I CoCo/OS-9/OSk fans for 

| 2 days of fun in the sunny 

j South, at the Atlanta CoCoFEST! 

1 Come enjoy the "Southern hospitality" of the 

I Atlanta Computer Society... and while you're there, you can also enjoy: 

* Informative seminars from the "gurus" ofCoCo, OS-9, and OSk! 

* Exhibitions and special show prices from your favorite vendors! 

* Introductions of innovative NEW products for CoCo/OS-9, and OSk! 



As last year's show SOm OUT the/hotel, weiare this year; 

Although there are other hotels «ea^;y0u^ the ; 

special rate of $49/nite+ tax^and, as a special bonus, the HBST SO to place a reservation thru 
CoCoPRO! for 2 nite's stay, will reeieve one FREE Mi-show admission? Also, you can save $5 
by ordering tickets now at the presale price of $1? for One>day, or $15 for a FwW-show pf ssi 




PRO! 



1 334 BYRON YPSILANTI Ml 48198 



Include $1 S&H on all ticket orders. 
COD $4 additional. 



VISA/MC ORDERS 1 .800.937.7746 
ALL0THER CALLS t;3f 3481 .3283 

19 PM EST MON-SAT 

Modem users can order tickets, place reservations, or order 
any CoCoPRO! product, by calling our BBS at (313)292-4713 



:wspaper09 



Finally, there's NO need to leave OS-9 to produce sophisticated-looking newsletters, 
signs, or documents! Create headlines & columned text, bring in different fonts, 
pictures, fill patterns, and text, and create publications with that PRCMook! Comes 
complete with fonts, pictures, and fills, ready-to-run! Req. 256k CC3, OS-9 fv 2. 

Owners of Newspaper Plus may upgrade to rtewspaperOS tor only $25 & original disk*. JpHHCr ■ %r 4*9 



CoCoPRO! RS-232 PAK & KIT 

Created by Marty Goodman. FULLY-compatibie with the 
Slotpak-3, MuKipak, or Y -cable. Buy this re-engineered 
Tandy DC Modem pak complete, or purchase the kit and 
convert your own pak! 



jjSjjjj 



Pak- $44.95 Kit- $26.95 



□ ISTD 



Super Controller II (no-halt) $109 

One-meg upgrade $159 

Super Controller I (4-DOS) $89 

Eprom Programmer $49 

HDISK w/RS-232 $59 

HDISK $49 



Adaptec 4000a hard disk board 
Rare SCSI board, use with Disto. $99 

512k Upgrade w/Lightning software 

The BEST! 120ns DRAM, PP board $74 



Slotpak-3 Multipak replacement. 
12- volt adapter for above 



$89 
$15 




THE DISK MANAGER'S APPREMICr 



DMA is a new file management utility set for use with 
the CoCo-3 under DECB. Each utility in the set has 
been especially created to aid in organizing disks 
and the files they contain. These utils are combined 
into a single environment called DMA. Once booted, 
all utils are memory-resident. 

DMA features full wildcard file-handling, point-and- 
select filename features w/tagging, and 8 online 
help screens. MANY more features than any similar 
product. Get your disks organized quickly & easily, 

— "" $29.95 




PRO! 



1334 BYRON YPSIUMMTI Ml 48198 



Include $4 S&H on all U.S. orders, 10% CDN. 

COD $4 additional. VISA/MC add 5%. 
No P.O. Boxes, please, as we usually ship UPS. 



TOOLS II 



Introducing a NEW set of 27 OS-9 Iv 2 tools to make your 
computing life easier! Get Window Utilities (such as a screen- 
saver, global search & replace w/wildcards, a go command to 
easily change directories, and more), Process Scheduling utils 
such as alarm & demon (background task mgr. , w/scheduling), 
Script File utils like recobbler, I/O Port utils including an 
autodialer for voice calls (stop redialing!), and many more. 
You'll wonder how you've done without these! 

All 27 utilities can be yours for only $34.95 

All Alpha Software products now available on 
372 inch 720k diskettes for only $3 more! 



mm 



Data Merger 
Disk Mgr. Tree 
Multi-Menu 
Presto-Partner 



$19.95 Level II Tools $24.95 

$29.95 The Zapper $19.95 

$19.95 0S9 Lv2 BBS $29.95 

$29.95 Data Windows $59.95 
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Quality software for*** the Multivue/OS-9 user 

' Minefield- deductive reasoning at its most deceptively simple! 

• Seabattle- "Battleship" for OS-9/Mvue! 

• Knightsbridge- unique variant of chess, with an element of chance! 

• CoCothellO- the strategy game of the ages! 

• CoCO Yahtzee- classic family dice game comes to your screen! 

Requirements: 256k CC3, joystick, OS-9 12, & Mvue Windlnt module. 

Special package- all 5 for only $34.95 
OS-9 LV 2 Operating System $34.95 

.:■:■;■■;,■: /. . . / 

VISA/MC ORDERS t .800.937.774$ 
ALL OTHER CALLS 1.31 3.48 ! .3283 

f -9 PM EST MON-SAT 

For a 12-mo. subscription to our catalog of used soft- & 
hardware at INCREDIBLE prices (20-90% off), send $15 




Breakpoint 



The System Calls 



by Greg Law 

Technical Editor 



Before we get into the details of 
handling system calls, turn to 
Chapter 8 of the Technical Refer- 
ence section of the OS-9 Level II 
manual. Under the heading Call- 
ing Procedure, the manual states you must 
load the 6809 registers with the appropriate 
values and execute an SWI instruction fol- 
lowed immediately by the system call code. 
The examples at the top of Page 8-2 show 
two techniques of using the ISClose sys- 
tem call with assembly language. 1 don*t 
think we are quite ready to use embedded 
assembly-language source, so we need to 
find another technique. 

Turn to Page 3-26 of the C Compiler 
manual and read the description of the 
_os9( ) function. According to the manual, 
this function allows you to use virtually any 
OS-9 system call without resorting to assem- 
bly-language routines. Using the FS I D sys- 
tem call as an example, this function can be 
written as shown in Listing 1. The os9.h 
header file is included because the regi s- 
ters structure and the system call mne- 
monics are defined in this file. Note that 
both Proc_ID and User_ID are declared as 
pointers. Normally functions can return only 
one value, but this function needs to return 
both the Process ID and the User ID to the 
calling function. By declaring both para- 
meters as pointers, the calling function can 
obtain both values as shown in Listing 2. 
However, the calling function declares 
Proc_ID and User_I0 as integers — not 



pointers — and passes the address to 
Get_ID( ) by using the address-of (&) op- 
erator. This same technique is used with the 
registers structure. 

You may wonder why pointers aren*t 
being used. First of all, remember that 
pointers point to objects. To understand 
this, assume a character is stored some- 
where in memory . This can be illustrated by 
the following declaration: 

char c: 

For the sake of argument, assume 
Variable c is stored at Address $0100 in 
memory and has the value of A (S4 1 ). Now 
let's declare an integer and call it i . 

int i ; 

Assume variable i is stored at Address 
S0101. Through the use of the address-of 
operator, the program can assign the ad- 
dress of Variable c to Variable i as follows: 

i - &c: 

You can now say that Variable i con- 
tains the value S0100. which is the address of 



Variable c. Variable c contains the value A 
(S4i). The actual block of memory looks 
like 



In addition to being OS-9 Online SIGop, 
Greg Law enjoys programming on all types 
of computers and has worked on systems 
ranging from the CoCo to the Burroughs 
B6700 super mainframe. He lives in Louis- 
ville, Kentucky. 



typedef struct 



( 



unsigned DAT_Image; 

unsigned Block_Size: 

unsigned Block_0f fset: 

unsigned Link_Count; 
M0D_DIR; 



Address 


Value 


0100 


41 


0101 


01 


0102 


00 



Theoretically, there are three values as- 
sociated with Variable i . The value of i is 
$0100, the address of i (&i ) is $0101 and the 
value pointed to by i (*1) is S4101 — re- 
member that i is an integer (two bytes). 
However, i is not declared as a pointer and 
therefore cannot be used with the pointer 
operator (*). 

This is basically how pointers work, 
with a few exceptions. The most important 
exception is that a pointer declaration, such 
as char *ptr,allocatesa two-byte memory 
area to store the address of the object to 
which it points. The memory required to 
store the object is not allocated. The effec- 
tive result is that a pointer initially points to 
an arbitrary location in memory. This re- 
quires you to add code to allocate a block of 
memory large enough to store the object 
and to assign the address of this block of 



/* DAT Image pointer */ 

/* Size of the block */ 

/* Offset of the module in block */ 

/* Module link count */ 



Figure 1: Module Directory Structure 
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typedef struct 

{ 

unsigned Sync_Bytes; 

unsigned Mod_Size: 

unsigned Name_Of fset; 

char Type_Lang: 

char Attr_Rev; 

char Parity: 

} MOD_HOR: 



/* Sync Bytes */ 

/* Module Size */ 

/* Offset to module name */ 

/* Type / Language byte */ 

/* Attribyte / Revision byte */ 

/* Header parity check */ 



Figure 2: Module Header Format 



memory lo the pointer. One method of 
doing this with a pointer-to-type character 
is as follows: 

char *ptr; 

ptr - ma11oc(sizeof (char)): 

This same technique can be used with 
the regi sters structure as follows: 

struct registers *regs: 

regs - mal loc(sizeof (struct regi 

sters)) : 



Because of the inherent complexities 
involved with pointers, it is easier to de- 
clare the variables and structures as non- 
pointers and use the address-of operator in 
the examples discussed so far. 

Back to the discussion of the F$ ID sys- 
tem call. You can also split this function 
into two separate functions — getpid( ) 
and getuidt ) • — as in the original library. 
The two separate functions can be written 
as shown in listings 3 and 4. As with the 
function in Listing 1, the registers struc- 
ture is declared and the F$ I D system call is 



used to get the Process ID and User ID. 
However, getpi d( ) returns only the Process 
IDandgetuid( ) returns only the User ID — 
although I used a trick with the Process ID 
in both listings 1 and 3 that may look 
strange. 

You may recall that the Microware C 
Compiler stores a character value as an 8-bit 
(one-byte) signed value and stores an inte- 
ger value as a 16-bit (two-byte) signed value. 
This is documented on Page 1-5 of the C 
Compiler manual. However, this is only 
partially correct. It is true that character 
values are stored in memory as an 8-bit 
signed value, but they are sign-extended 
into a 1 6-bit signed value in the 6809's reg- 
isters. For example, assume you've written 
a program that uses the following C source 
fragment: 

char c; 
int i: 
c - 0x80: 
1 - c: 

The assembly source produced by the 
compiler is as follows: 

ldd #$80 
stb c.y 
ldb c.y 



&a$a 



EVERYONE'S TALKING ABOUT... 

DUAL HI-RES JOYSTICK ADAPTER 

Colorware Hi-Res Tandy Hi + Low 

Res, cassette jack S40 

HI ft LO-RES JOYSTICK ADAPTER 
Tandy Hi + Lo-Res S27 

HAWKSoft keyboard cable S25 

DOMINATION war game S18 

MYDOS extended DOS for you! S15 

H^WJCSoft 

P.O. Box 7112 Elgin, II 60121 

(708) 742-3084 eves and ends 

SASE for more info and price list. 

S/H ( US ft CAN ) always included 

MO. Check C.O.D. no credit cards 

1 year warranty on ALL hardware !! 



• AWARDS, CERTIFICATES, DIPLOMAS 

• SIGNS, BANNERS, GREETING CARDS 

• LABELS WITH TEXT & PICTURES... 

Graphics As Easy As I S S 

You don't have to be an artist to create fabulous looking 
printouts on your CoCo. Zebra's three graphics software 
products all contain clip-art collections and each program is 
optimized for special types of printed items. 
First Prize comes with 9 disks of clip art, borders, and 

1 templates to make awards, certificates, diplomas, and 
licenses for business, education, family, general 
purpose, humor, religion and sports $49.95 

CoCo Graphics Designer Plus, comes complete with 

2 Border, Font, and Picture collections to make great 
signs, banners, and greeting cards $29.95 

Label Designer comes with picture and font collections and 

3 makes great labels with text and graphics. The pro- 
gram's features include automatic serial numbering, 
mail merge, and auto disk directories $29.95 

All products require 64K CoCo II or 3, mouse or joystick, disk drive, 
and compatible printer. Please specify printer when ordering. 
Include $3 S&H. Plus $3.50 if UPS COD. VISA/MC Accepted. 

ZEBRA SYSTEMS, INC. 

121 S. Burrowes St., State College, PA 16801 
(814)237-2652 
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sex 
std 



Ly 



This is fine if you are working with 8-bit 
signed values, but it leads to the side effect 
of creating 16-bit signed values when con- 
verting from a character to an integer, which 
is desired in most cases. If you are using the 
8-bit signed value S80 (-128). this is trans- 
lated to the 16-bit signed value SFF80 (-128). 
But in this case you want to use 8-bit un- 
signed values, which aren't supported by 
the Microware C Compiler. The C compiler 
does support 1 6-bit unsigned values, so you 
might use the following C source fragment: 

char c: 

unsigned i : 

c - 0x80: 

i - (unsigned) c: 

This results in the following assembly- 
language source code: 

1 dd #$80 

stb c.y 

ldb c.y 
sex 

std i.y 

The problem in this case is that c starts 
with a value of S80 (-128) and i results in an 
unsigned value of SFF80 (+65408), which is 
far from what you want. 

However, you can trick the compiler 
into converting an 8-bit signed value into an 
8-bit unsigned value while it is in a register. 
This allows you to store the unsigned repre- 
sentation of the 8-bit value into a 1 6-bit 
variable. For example, assume you are us- 
ing the following C source fragment: 

char c: 

int i; 

c - 0x80: 

i - (int) (c & OxFF): 

The assembly source produced is 
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ldd #$80 




stb c.y 




ldb c.y 




sex 




cl ra 




std i.y 
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In this case, c starts with a value of S80 
(-128) as usual and is sign-extended into the 
16-bit signed value SFF80 (-128). However, 
the upper byte is masked immediately after 
the sign extension, leaving us with the 16-bit 
signed value of S0080 (+128). This technique 
is used in listings 1 and 3 to ensure the 
functions return a positive 1 6-bit Process ID. 
However, be aware that this trick is specific 
to the Microware C Compiler and may not 
work properly with other C compilers. 
Perhaps a better solution is to use the abs ( ) 
function to obtain the absolute value, as 
seen in the following example: 

char c; 
int i ; 
c - 0x80: 
i - abs(c) ; 

Most of the user-mode system calls are 
already included in the standard library so 
you won't have to worry about those. But 
the newer system calls, such as F$GB1 kMp, 
F$GModDr, F$GPrDsc, F$NMLink and 
F$NMLoad. are very handy to have available 
in a library. The F$GBlkMp system call is 
used to get a copy of the system block map. 
Now that sounds really useful, eh? The 
manual doesn't make this point very clear, 
but the system block map contains one byte 
for each block supported by the memory 
management unit or. in the case of the 
CoCo 3. the DAT in the GIME chip. The 
number of blocks available depends on the 
amount of memory installed in the system, 
but you should use a 1024-byte buffer to 
store the data just to play it safe. Remember 
that the CoCo 3 uses 8K blocks (8192 bytes 
each) so the most common number of blocks 
you will encounter are 16(I28K), 32(256K), 
64(5l2K)and I28(1024K). 

Upon returning from the F$GB1 kMp sys- 
tem call. Register D contains the size of 
each block and Register Y contains the 
number of blocks. On a 512K CoCo 3, 
Register D is S2000 (8192 bytes-per-block) 
and Register Y is S40 (64 blocks). Each byte 
in the buffer represents one block and is 
encoded as follows: 

Bit7:0=RAM, l=NotRAM 
Bit l:0=Data, l=Module 
BitO:0=Free. l=In use 

The typical values you will see are 

$00: Free block 

SOl: Block contains data 

S03: Block contains a module 

An example of how to write the GB1 kMp( ) 
function is shown in Listing 5. Note that the 
status returned from the _os9( ) function is 
returned to the calling function. This is very 



important — it allows the calling function 
to handle errors as they occur. 

The F$GModDr system call is used to get 
a copy of the module directory. With this 
system call, you need to allocate a 2048-byte 
block of memory in which to store the 
module directory. The structure of each 
entry in the module directory is shown in 
Figure 1 . However, there is a little trick you 
must use to determine the number of entries 
that are actually used. Remember, you are 
working with a 2048-byte block that is theo- 
retically capable of storing 256 entries — 
each entry uses eight bytes and 2048/8 is 256. 
Also remember that you call the F$GModDr 
system call with the address of the buffer in 
Register X. and it returns with the ending 
address of the buffer in Register Y. Sub- 
tracting Register X from Register Y 
(reg . rg_y - reg . rg_x) gives the number of 
bytes actually used. Dividing the result by 
eight gives the number of entries used. 

The F$GModDr system call also returns 
the starting address of the module directory 
within the system map. Although the manu- 
als never explain why this address is re- 
turned or what it is used for, it is extremely 
important as you shall see. Now examine 
the source in Listing 6. As usual, the regi s - 
ters structure is declared and the _os9( ) 
function is used to perform the system call. 
The value returned by _os9( ) is assigned to 
status for later use. Four pointers are also 
declared: One points to the buffer to store 
the module directory, and three are used to 
return the values returned from the F$GModDr 
system call. 




A sample program that calls the GModDrt ) 
function is shown in Listing 7. As you may 
quickly determine, not much information is 
contained within the module directory — 
not even the module names are there. To 
obtain the information contained in the 
module header, you need to use the F$CpyMem 
system call shown in Listing 8. Even though 
F$CpyMem appears very easy to use, there 
are a few hidden tricks that aren't docu- 
mented in the manuals. It appears that you 
should be able to pass the DAT Image pointer, 
the offset of the block and the byte count 
straight through to F$CpyMem. but this isn't 
the case. 

Remember I previously mentioned that 
the 2048-byte buffer is theoretically capable 
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Listing 1: Get_ID.c 




//include <os9.h> 




Get_ID(Proc_ID. User_ID) 
1nt *Proc_ID; 
int *User ID: 
{ 

struct registers reg; 






_os9(F_ID. &reg); 
*Proc_ID - (int) (reg.rg_a 
*User ID = reg.rg_y; 
) 


& 0XFF); 


Listing 2: test_Get_I D . c 




main( ) 
{ 

int Proc_ID; 

1nt User_ID; 






Get_ID(&Proc_ID. &User_ID) 
printfC'Process ID - %d\n" 
printfC User ID - %d\n" 
} 


Proc ID); 
User_ID): 



Listing 3: getpid.c 

//include <os9.h> 

int getpidt ) 
{ 

struct registers reg: 

_os9(F_ID. &reg): 
return((int) (reg.rg_a & 



)xFF)); 



Listing 4: getuid.c 

//include <os9.h> 

int getuid( ) 
{ 

struct registers reg: 

_os9(F_ID. Sreg): 
return(reg.rg_y) ; 



Listing 5: GBlkMp.c 

//include <os9.h> 

GBlkMp(block) 
char *block; 
{ 

struct registers reg: 

reg.rg_x - block: 
return(_os9(F_GBLKMP. &reg)) 



SYSTEM IV 




i i i i i r r « * .i i i i 



THE BEST OF THREE WORLDS 

1 - A Multi-User Multi-Tasking System 

2 - Optional Plug-in Board for MS-DOS 

3 - Optional Emulator/Interpreter for 

OS- 9/ 6809 Software 



SYSTEM IV - The 68000 Computer Already 
serving customers here and abroad! 



Expandable using readily available low-cost 

cards 

Flexible enough to tailor to your requirements 
Versatile enough to use OS-9/68000, 

OS-9/6809 and MS-DOS applications 
Powerful - outperforms other machines in its' 

price class 



Just call, FAX or drop us a line. We will 

respond promptly with complete pricing 

and specifications. 



DELM AR CO - the Company that's been 
serving its' customers since 1;97S; 



Terminal Systems from $ 999.00 

Console Systems from $1,149.00 

Assembled boards and Kits available 



<* It** 



delmar co 

Middletown Shopping Center - PO Box 78 - Middletown. DB 19709 
302-378-2553 PAX 302-378-2556 
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of holding 256 entries'? Theoretically is the 
key word here because a subset of the DAT 
images is located at the end of this buffer. 
Another point not mentioned is that the 
F$CpyMem system call uses the DAT images 
located in your workspace. This creates a 
problem in that the DAT Image pointer re- 




turned from F$GModDr is relative from the 
system map. meaning that you need to find 
the offset to the DAT Image within your 
workspace. The first step is to find the base 
address of the DAT Image relative to the 
start of the module directory. Since the 
F$GModOr system call returns the address of 
the module directory in the system map, 
you can use it to find the base address. For 
example, assume the DAT Image is located 
at SOFFE and the address of the module 
directory is SOAOO (both of these addresses 
are relative to the system map). By 
subtracting SOAOO from SOFFE, you know 
that the DAT Image is located S05FE bytes 
from the start of the module directory. The 
final part of the formula is to find the 
absolute address of the DAT Image in your 
workspace. You can do this by adding the 
address of the module directory in your 
workspace to the result of the previous 
calculation. 

Now that you know how to deal with the 
DAT Image pointer, you can focus on the 
module header. The basic module header, 
which contains most of the information you 
need, is nine bytes in size and the format is 
shown in Figure 2. Note that you do not 
know where the module name is located 
within the module. You could copy a lot of 
extra data in the hopes of finding the mod- 
ule name immediately following the mod- 
ule header. However, the module name can 
appear anywhere within the module — 
especially in device descriptors where the 
module name is usually at the end. Since 
you know the offset of the module within 
the block, you can use the module name 
offset located in the module header to lo- 
cate the module name. To do this, add the 
offset of the module to the offset of the 
module name (mod_dir.Offset + 
mod_hdr . Name_0f f set) and use a length of 
at least 32 bytes — the maximum length of 
a module name. 

Listing 9 shows the final source code for 



Listing 6: GModOr.c 

^include <os9.h> 

GModDr(buffer. buf_start. buf_end. sys_start) 
char *buffen 
unsigned *buf_start: 
unsigned *buf_end; 
unsigned *sys_start: 

{ 

struct registers reg: 
int status: 

reg.rg_x - buffer; 

status - _os9(F_GM0DDR. &reg): 

*buf_start - reg.rg_x: 

*buf_end = reg.rg_y; 

*sys_start - reg.rg_u; 

return(status); 



Listing 7: test, GModOr.c 
^include "moddir.h" 



ma' 

I 


nO 






MOD 


DIR 


mod dir[256]: 




int 


entries: 




int 


buf 


.start: 




int 


but 


end: 




int 


svs 


start: 




int 


i; 





if((GModDr(mod._d1r. &buf_start. &buf end. &sys_start)) 
exi t(errno) : 

entries - (buf_end - buf_start) / 8: 



-1) 



i++) 



for(i - 0: i < entries : 

I 

printfC'DAT Image Pointer 
printf ("Memory Block Size 
printfC'Offset of Module 



- %04X\n 

- %04X\n 

- %04X\n 
printf("Module Link Count - %04X\n". mod dirCi ]. Link Count) : 
printfC'W): 



mod^dir[i].DAT_ Image) : 
mod d1r[1]. Block .Size): 
mod_dir[i].Block_Offset): 



ListingS: CpyMem.c 
^include <os9.h> 

CpyMem(dat image, offset, count, buffer) 

unsigned dat_image: 

unsigned offset: 

unsigned count: 

char *buffer: 

{ 

struct registers reg: 

reg.rg_a - (char) <(dat_image » 8) & 0xFF); 
reg.rg_b - (char) (dat_image & 0xFF): 
reg. rg_x - offset: 
reg.rg_y - count: 
reg.rg u - buffer: 
return(_os9(F_CPYMEM. &reg)>: 
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a program thai prints an unformatted mod- 
ule directory listing. As documented above, 
the first step is to copy the module directory 
into your workspace using the F$GModDr 
system call. You may quickly notice that 
the variables mod_dir and buf_start are 
pretty much the same thing — mod_di r is 
an array of structures of type M0D_DI R and 
buf_start is an unsigned integer that con- 
tains the address of the first element in 
mod_dir. I used buf_start so I wouldn't 
have to use pointer arithmetic with mod_di r. 
I prefer to avoid performing calculations 
with pointers where possible. Q 



CORRECTIONS 



"Pyramid"(May 1991, Page 78): A little 

bug crept in that may cause the computer 
to "hang" under certain conditions. To 
correct the problem, change POKE 
400. 180 in Line 2 to POKE 140.180. In 
Line 65, change POKE 400.20 to POKE 
140.20 and POKE 400.180 to POKE 
140.180. The corrected lines should 
appear as follows: 

2 CLEAR1000:RGB:HBUFF1.810:HBUFF 
2.810:HBUFF3.810:HBUFF4.810:HBUF 
F5.810:SH-1:P0KE140.180:EXEC4335 
0:P0KE&HF80F.0:P0KE&HF84F.0:P0KE 
&HF89C.0:PALETTE0.63:PALETTE1.60 
:PALETTE2.0:PALETTE3.36:DIMN$(13 
).X(29).F(29).Y(29).CA(52) 

65 P0KE65496..:P0KE140.20:F0RD-1 
T010: EXEC: NEXT: P0KE65497. . : P0KE1 
40.180:RETURN 



"Graphic Experiments") March 1991, 
Page 78): In the third paragraph, NE40 in 
the HCIRCLE statement should be NU40. 
In the fourth paragraph, lines 310 and 320 
should be lines 200 and 210. And in the 
sixth paragraph, "angle from 0-90 de- 
grees" should read "angles from 0-88 
degrees." 



"Turbo Light"(May 1991, Page S3): 
The headings in the third column for the 
power connections are reversed. The 
figure should read: 



IC 


Ground 


+5 Volts 


UI 


8 


16 


U2 


7 


14 



Listing 9: moddir.c 



//include "modd 


ir.h" 


//include "modhdr.h" 


ma i n ( ) 




MOD D1R 


mod d1r[256]: 


MOD HDR 


mod hdr; 


unsigned 


buf start: 


unsigned 


buf end; 


unsigned 


sys start: 


unsigned 


image: 


unsigned 


offset: 


char 


mod name[32]: 


char 


string[321: 


int 


entries; 


int 


i; 



1f((GModDr(mod_dir. Sbuf.start. abufend. &sys_start)) 
exit(errno) : 

entries - (buf end - buf_start) / 8; 

for(i - 0: i < entries; 1++) 



-1) 



{ 



image - mod_dir[i].DAT_Image - sys_start + buf_start: 
CpyMem(image. mod_dir[i].Block._0ffset. sizeof (M0D.HDR) . &mod_hdr): 

offset - mod_dir[i].Block_0ffset + mod_hdr.Name_0ffset: 
CpyMem(image. offset. 32. string): 

strhcpy(mod_name. string); 
printf ("%s\n". mod^name): 



/«* 




Turn your 




into a 



TIGER! 

The power of the 68000, even from BASIC! 



The TIGER is a 68000 co- 
processor for the TOMCAT TC9 
that runs at the blistering speed 
of 10 Mru! That's over 5 limes 
faster than the CoCo3! Some 
functions can be speeded up by as 
much as 8 times with the TIGER! 



Now use all your existing RSDOS 
software and hardware AND have 
the power of the 68000 in the 
same cabinet Amaie your friends 
with the speedup possible with 
the TIGER. If and when you want 
you can add OS9/Lcvel II and 
speed that up by a factor of 2 or 3! 
You could also add OS9/68000 to 
the TIGER without sacrificing 
ANY of your existing software OR 
liardware. OS9/68000 runs on the 
TIGER with your drives etc. that 
are running from your TOMCAT 
TC9! NO extra hardware needed. 
Later, if you want, you can fur- 
ther improve the performance of 
the TICER by adding modules 
(cards) to the TIGER on the 



«ft 



K-Bus! Already there are more 
than 20 different cards available 
including memory cards. 2 and 4 
port serial cards, 4 port parallel 
cards, SCSI and floppy controller 
cards, DMA (Direct Memory Ac- 
cess) cards, and more! With the 
TIGER you can use these cards 
even from BASIC! 
Just 'CALL THE 
TIGER' 



You don't have to 
spend THOU- 

SANDS to haw the 
power of the 
68000! As a matter 
of fact the TIGER 
introductory price 
is ONLY $129.95! 



That's right! ONLY $129.95! 

Now with the TICER. FHL, long 
the leader in Color Computer 
hardware and software, brings the 
power of the 68000 within reach 
of Color Computer users without 
requiring that you abandon your 
existing hardware OR software. 
AND you get the ability to run 
ALL the software that will be 
available someday for the more 
expensive OS9/68000 computers. 



So, why spend THOUSANDS to- 
day for a computer with little 
software when for JUST $129.95 
you can have the SAME power, 
run the SAME software, for one 
TENTH the cost! 



sS 



The TIGER is in 
stock for immediate 
delivery! 



Call today for our complete cat- 
alog and newsletter with more in- 
formation on the TIGER and the 
TOMCAT TC9. It's FREE! 




% S™, |U-u- I* (ISO) K" - W -O 



FRANK HOGG 
LABORATORY 

Sinco 1976 
304 Windemere Road 
Syracuse. NV 13205 

FAX3IS'469-9537 



Call 315 469-7364 
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novices niche 




Graphics Utility 



Text & Graphics 

by Keiran Kenny 

With PIXTEXT4. you can place text 
directly on a PM0DE4 screen. The strings 
for the mini-font graphics characters are 
defined in lines 460-510. The string for 
each character is labeled L$. and its ASCII 
number appears in parentheses. 

Most of the characters are drawn in a 
frame that is four pixels high by three 
pixels wide. A few, like X and Y. are 
drawn in a4-by-4 frame. Because of their 
small size, the characters are necessarily 
somewhat primitive, but they are quite 
readable. You can get about 40 characters 
per graphics screen line. 

You can preload the binary PM0DE4 
image or run a BASIC program that draws 
a PM0DE4 picture on the screen. (Press 
BREAK once the image is drawn.) Run 
P I XTEXT4 and answer Y to the query that 
asks if your picture is in memory. Other- 
wise, if your picture file is saved in binary 
format and has not been previously loaded, 
answer N to the query and follow the next 
prompt to enter the filename. If it is a disk 
file with an extension other than .BIN, 
include the extension in the filename. 

Enter the scale as a multiple of 4 (4, 8, 
1 2, etc.) at which you want the characters 
drawn on the screen. Do not use interme- 
diate scales — these can distort the char- 
acters and may result in an FC error. 

Your picture appears on the screen 
with a flashing cursor in the upper-left 
corner of the screen. Use the arrow keys 
to position the cursor. Press ENTER and 
type your first line of text. When you have 
entered enough text in this line and want 
to continue entering in the same scale, 
press CLEAR. The cursor appears one line 
down, at the left. In other cases press 
ENTER, which takes you to the menu. 

Press 2 for Replay and enter another 
scale at the prompt. On the graphics 
screen, move your cursor as before. The 
cursor moves in steps adjusted to the 
predetermined scale. 

When entering text, use the left arrow 
to backspace and delete errors. If you 
position the cursor at the beginning of an 



existing line, you can use the right arrow 
to delete from left to right. The deletion 
rectangle in Line 320 adjusts to suit the 
scale you are using. 

Do not place text too close to elements 
in the graphics image or when you press 
the left arrow to backspace, you may 
erase part of the picture. However, you 
can move the cursor through existing text 
or figures without any damage. 

After you have typed the last line of 
text, press ENTER. At the menu, you can 
save your picture as a binary file, add or 

The Listing: PIXTEXT4 

'PIXTEXT4 

1 'WRITTEN BY KEIRAN KENNY 

2 'COPYRIGHT (C) AUGUST 1991 

3 "BY FALSOFT. INC. 

4 'RAINBOW MAGAZINE 
10 CLS:CLEAR500 

20 IFPEEKUH15F)-196THENPX-1 

30 IFPEEK(&HFFFE)*256+PEEK(&HFFF 

F5-&H8C1B THENSP-65497:SL=65496E 

LSESP=65495:SL-65494 

40 GOTO450 

50 PMODE4.1:COLOR0.1 

60 PRINT@224."IS PICTURE IN MEMO 

RY? Y/N" 

70 K$-INKEY$: IFK$0"Y"ANDK$0"N" 

THEN70 

80 IFK$-"Y"THEN110 

90 CLS:PRINT@224."L0AD PIXNAME:" 

;:LINEINPUTPX$:IFPX THENL0ADMPX$ 

:GOTO110 

100 CLOADMPXS 

110 POKESP.0 

120 INPUF'ENTER SCALE:" :SC: IFSC< 
8THENSC=4 

130 SCREEN1.1 

140 H-0:V-7*SC/4 

150 IFINKEY$=CHR$(13)THEN280 

160 IFPEEK(341)-247THENV-V-8*SC/ 

4 

170 IFPEEK(342)-247THENV-V+8*SC/ 

4 

180 IFPEEK(343)-247THENH-H-6*SC/ 

4 

190 IFPEEK(344)-247THENH-H+6*SC/ 

4 

200 IFV<7*SC/4THENV-7*SC/4 

210 IFV>191THENV-191 

220 IFH<0THENH-0 

230 IFH>249THENH-249 

240 DR-PPOINT(H.V) 

250 IFDR-0THENPSET(H.V.1)ELSEPSE 



change text, load another picture, or end 
the program. 

If you have a disk drive connected, the 
image is saved to disk. Line 20 sets the 
value P X=l if you use a disk drive. If you 
do not have a disk drive, the file is saved 
to tape. 

The high-speed poke is in effect 
throughout the program, except when 
loading or saving files. Line 30 sets the 
variables SP and SL according to whether 
you are using a CoCo 2 or a CoCo 3. 



T(H.V) 

260 FORDL=1TO200:NEXT:PSET(H.V.D 

R) 

270 GOTO150 

280 X-H:Y=V 

290 BT=X 

300 K$=INKEY$:IFK$-""THEN300 

310 IFK$-CHR$(12)THENH-0:V-Y+8*S 

C/4:GOTO150 

320 IFK$=CHR$(9)THENC0L0R5:LINE( 

X.Y+2)-(X+5*(SC/4).Y-6*(SC/4)).P 

SET.BF:X-X+6*(SC/4):COLOR0:GOTO3 

00 

330 IFX>248ANDK$OCHR$(8)ANDK$<> 

CHR$(12)ANDK$OCHR$(13)THEN300 

340 IFX-BT ANDK$-CHR$(8)THEN300E 

LSEIFK$=CHR$(8)THEN350ELSEIFK$=C 

HR$(13)THEN370ELSE360 

350 C0L0R5:LINE(X-6*(SC/4).Y-6*S 

C/4)-(X.Y+2).PSET.BF:X-X-6*SC/4: 

COLOR0:GOTO300 

360 COLOR0:DRAW"S-SC:BM"+STR$(X) 

+"."+STR$(Y)+L$(ASC(K$)):X-X+6*S 

C/4:GOTO300 

370 CLS:POKESL.0:PR1NT@131."1. S 

AVE PIX"..TAB(3)"2. REPLAY".. TAB 

(3)"3. LOAD ANOTHER". TAB(3)"4. E 

ND":PRINT:PRINTTAB(6)"PRESS 1 - 

4) » 

380 K$-INKEY$:IFK$<"1"0RK$>"4"TH 

EN380 

390 0NVAL(K$) GOTO400. 110.90.440 

400 CLS:PRINT@224."SAVE PIXNAME: 

"::LINEINPUTPX$ 

410 IFPX THENSAVEMPXJ. 3584. 9727. 

40999:GOTO430 

420 CSAVEMPXS. 1536. 7679. 40999 

430 GOTO370 

440 CLS:END 

450 DIMA(32).B(110).L$(90) 

460 L$(48)-"U4R3D4NL3":L$(49)-"R 



22 



THE RAINBOW August 1991 



2LU4NGBRBD4":L$(50)-"BU4R3D2L3D2 

R3":L$(51)-"R3U2NL2U2NL3BD4":L$( 

52)-"BUNU3R2NUNDRBD":L$(53)="R3U 

2L3U2R3B04":L$(54)-"NR3U4D2R3D2" 

:L$(55)="BU4R3DG3BR3":L$(56)-"BR 

HEHERFGNLFGNLBR":L$(57)-"BR3U4L3 

D2R3D2" 

470 Lt(65)="U3ERFDNL3D2":L$(66)- 

"U4R2FGNL2FGNL2BR":L$(67)-"BRHU2 

ERFBD2GNLBR":L$(68)-"U4R2FD2GNL2 

BR":LS(69)-"NR3U2NR2U2R3BD4":L$( 

70)-"U2NR2U2R3BD4":L$(71)-"BRHU2 

ER3BD2NLDGNL2BR":L$(72)-"U4BR3D2 



NL302":L$(73)-"R2LU4NLRBD4":L$(7 

4)-"BRNHREU3BD4" 

480 L$(75)="U4D2RNE2F2":L$(76)-" 

NU4R3":L$(77)-"U4FRED4":L$(78)-" 

U4F3U3D4":L$(79)-"BRHU2ERFD2GNLB 

R":L$(80)-"U4R2FGNL2BRBD2":LS(81 

)= M BRHU2ER2FDG2ENFGNL2BR2":L$(82 

)-"U4R2FGL2RF2":L$(83)-"R2EHLHER 

2BD4":LS(84)="BR2U4NL2R2BD4":L$( 

85)="BRHU3BR4D3GNL2BR" 

490 L$(86)-"BR2H2U2BR4D2NG2BD2": 

L$(87)-"NU4ERFNU4":L$(88)-"E4BL4 

F4":L$(89)="BR2U2NH2E2BD4":L$(90 



)-"NR4E4L4BF4" 

500 L$(33)-"UBU2NU2BD2":L$(36)=" 

R3EHL2HER3L2NUD5UBR2":L$(37)="NE 

4BU3UBR4BD3D":L$(39)-"BU3UBD4":L 

$(40)-"BRHU2EBD4":L$(41)-"EU2HBR 

BD4":L$(42)-"BR2U2NG2NL2NH2NU2NE 

2NR2F2":L$(43)-"BR2U4D2NL2R2BD2" 

:L$(44)-"NGNU":L$(45)-"BU2R4BD2" 

510 L$(46)-"NU":L$(47)-"E4BD4":L 

$(58)="UBU2UBD4":L$(59)="NGUBU2U 

BD4":L$(61)-"BUNR4BU2R4BD3":L$(6 

3)-"NRBU2R3U2L3BD4BR3" 

520 GOTO50 



Screen Utility 



CoCo3 



Palette Control 

by Chuck Katsekes 

Palette 40/80 allows you to change the 
foreground and background colors of the 
CoCo 3*s 40- or 80-column screen to any 
of the 64 available colors. This program is 
a supplement to Palette 32 (THE RAINBOW, 
May 1988). which changed the foreground 
and background colors of the 32-column 
screen on the CoCo 3. 

When you run the program, you are 
asked if you want to change the colors of 
the40-or8f)-column screen. Press 1 forthe 
4()-column screen or 2 for the 80-column 
screen. The WIDTH command is used to 
display the selected screen. You are 
prompted to enter the color values for the 
foreground and background palette slots. 
The selected colors are then set into Palette 
(the background) and Palette 8 (the 
foreground). 



The Listing: PAL40-80 

10 "PALETTE 40/80 

20 'WRITTEN BY CHUCK KATSEKES 

25 'COPYRIGHT 1991 FALSOFT.INC. 

30 ' THIS UTILITY SUPPLEMENTS PA 

L32.BAS AND ALLOWS YOU TO 

40 ' CHANGE THE FORGROUND AND BA 

CKGROUND COLORS FOR 40/80 

45 ■ COLUMN SCREENS ON THE COCO 

3 

50 CLS1:WIDTH 40 

60 L0CATE3,2:PRINT"40/80 COLUMN 

PALETTE UTILITY" 

70 PRINT: INPUT"«ENTER SCREEN WI 

DTH 1-40 2-80»";Q$ 

80 IF Q$-"l" THEN100 

90 IF Q$-"2"THEN110 

100 CLS1:GOTO120 



110 CLS1:WIDTH80:GOTO120 

120 PRINT:PRINT"X-BACKGROUND Y 

-FOREGROUND" 

130 PRINT"<0-63> <0-63> 

140 FOR X-0 TO 63 

150 FOR Y-0 TO 63 

160 PRINT:PRINT"X -"::INPUT X 

170 PRINT:PRINT"Y -":: INPUT Y 

180 CLS1:PALETTE0.X:PALETTE8.Y 

190 END 



Screen Utility 32K Extended 



Text-Screen Dump 

by Joel Hegberg 



TextDump is a useful utility that al- 
lows you to dump 32-, 40- and 80-column 
screens to your printer from BASIC any 
time you need a hardcopy of the text on 
the current screen. This utility can be 
used while a program is running. 

Enter the program as listed, then save 
it to tape or disk before running it. 
TextDump not only informs you of any 
errors you make while entering the DATA 
statements, it tells you exactly in which 
line the error was made. Remember to 
save the program after you correct any 
errors. 

Once the program runs perfectly, you 
are ready to print text screens. TextDump 



multitasks with BASIC'S interrupts so 
you won't even know it's there. If your 
printer is set to a baud other than 600, 
you must change the computer's baud 
before printing. To print a screen, sim- 
ply press CTRL-Fl . TextDump automati- 
cally places your system into slow mode 
and prints the current screen. When 
printing is completed, TextDump re- 
turns control to BASIC. 

TextDump works with any Color 
Computer that has at least 32K and the 
newer keyboard (with the control and 
function keys). This program is reset- 
protected, which means you can press 
the Reset button in the back of the 



CoCo and not have to worry about your 
system crashing. One last note: TextDump 
can be used with Microcom Software's 
5I2K BASIC. Simply run TextDump before 
you run the 5I2K BASIC boot file. 

The Listing: TEXTDUMP 

1 'TEXTDUMP 

2 'BY JOEL MATHEW HEGBERG 

3 'COPIRIGHT (C) AUGUST 1991 

4 'BY FALSOFT, INC. 

5 'RAINBOW MAGAZINE 
10 'TEXTDUMP 

20 'CREATED JANUARY 23. 1989 

30 "BY JOEL MATHEW HEGBERG 

40 '936 NORTH TWELFTH STREET 

50 'DE KALB. ILLINOIS 60115 
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60 ' 

70 'DEDICATED TO MY GOOD 

80 'FRIEND. DAVE. 

90 ' 

100 CLEAR500.32400:RESTORE:CLS:I 

FPEEK(269)*256+PEEK(270)-32401TH 

ENPRINT"TEXTDUMP ALREADY INSTALL 

ED.":NEW 

110 TL-0:LT-0:LN=250:T-32401 

120 READAS 

130 IFA$-"**"THEN190 

140 A«VAL("&H"+A$):IFLEN(A$)-3TH 

EN170 

150 TL-TL+A:LT-LT+A:POKET.A 

160 T-T+1:GOTO120 

170 IFLTOA THEN PRINT"ERROR IN 

LINE #":LN:ST0P 

180 LN-LN+10:LT-0:GOTO120 

190 READA$:A-VAL("&H"+A$) 

200 IFAOTL THEN PRINT"ERROR IN 

DATA STATEMENTS.": STOP 

210 A$=CHR$(142)+CHR$(126)+CHR$( 

145)+CHR$(191) 

220 A$-A$+CHR$(1)+CHR$(13)+"9":A 



-VARPTR(A$):POKE32730,PEEK(269) 

230 P0KE32731 . PEEK( 270 ) : EXEC( PEE 

K(A+2)*256+PEEK(A+3)) 

240 CLS:PRINT"TEXTDUMP IS INSTAL 

LED.":END 

250 DATA 34. 76. B6. 1.57. 81. BF. 10. 

27.0.6.35.76.6E.9F.7F.DA.B6.6FC 

260 DATA 1. 56. 81. BF. 10. 27. 0.6. 16 

.FF.EE.60.0.86.86.FE.D6.6F.F7.87 

D 

270 DATA 7E.AE.97.6F.B7.FF.D8.B7 

.FF.D6.86.D.AD.9F.A0.2.96.E7.B4A 

280 DATA 81.1.10.24.0..6D.8E.4.0. 

5F.A6.84.B7.7E.AF.86.AF.A7.84.78 

2 

290 DATA B6.7E.AF.81.80.10.24.0. 

48. 81. IF. 10. 23. 0.47. 81. 60. 10. 56B 

300 DATA 24.0.46.1A.50.AD.9F.A0. 

2.B6.7E.AF.A7.80.CB.1.C1.20.779 

310 DATA 10.25.0.15.5F.A6.82.B7. 

7E.AF.86.AF.A7.84.86.D.AD.9F.7F4 

320 DATA A0.2.B6.7E.AF.A7.80.8C. 

5.FF.10.23.FF.B3.F6.7E.AE.D7.A1A 

330 DATA 6F.86.FF.B7.1.57.16.FF. 



70.86.20.16.FF.BF.8B.60.16.FF.90 

2 

340 DATA BA.80.40.16.FF.B5.8E.40 

.0.5F.1A.50.86.76.B7.FF.A2.A6.8D 

5 

350 DATA 84.B7.7E.AF.A6.1.B7.7E. 

B0.86.20.A7.84.86.C0.A7.1.B6.969 

360 DATA 7E.AF.AD.9F.A0.2.B6.7E. 

AF.A7.80.B6.7E.B0.A7.80.CB.1.9FC 

370 DATA 96. E7. 81. 1.10. 27.0. ID. C 

1.50.10.25.0.D.5F.17.0.3F.86.4E1 

380 DATA D.AD.9F.A0.2.17.0.49.8C 

.4E.FF.10.23.FF.B2.16.0.1A.C1.70 

9 

390 DATA 28.10.25.0.D.5F.17.0.22 

.86.D.AD.9F.A0.2.17.0.2C.8C.452 

400 DATA 47.7F.10.23.FF.95.F6.7E 

,AE.D7.6F.86.7A,B7.FF.A2.86.9D3 

410 DATA FF.B7.1.57.16.FE.E0.A6. 

83.B7.7E.AF.A6.1.B7.7E.B0.86.A21 

420 DATA 20.A7.84.86.C0.A7.1.39. 

B6.7E.AF.A7.80.B6.7E.B0.A7.80.98 

7 

430 DATA 39.**. 9463 



Financial Help 1 6K Extended 



Tax Tables 

by Charles Gibson 

If you have to collect sales tax. you'll 
find Tax Table to be a real help. This 
program prints a six-column sales-tax 
chart for the percentage rate you choose. 
It is designed for use on a CoCo 2 or 3 
with a DMP- 1 05 printer set at 2400 baud, but 
it can be modified to suit your system. 

The codes in Line 170 are for condensed 
print at '/■'-line feed. The baud is set in 
Line 50 and may be changed for your 
printer or omitted for 600 baud. The high- 
speed poke in Line 80 and the normal - 
speed poke in Line 1 50 are for the CoCo 3. 
They can be omitted or you can change 
them to 65495.0 and 65494,0. respectively, 
for the CoCo 2. Note that if you press 
BREAK while the program is counting, the 
computer is left in the high-speed mode. 

The counter may count to 700 or 800. 
depending on the rate you choose. This 
process takes two or three minutes, and 
when it stops, printing begins. Be sure the 
printer is set as close to the top of the page 
as possible. A full printout should fill a 
page, skip the perforation, and use about 
half the next page, depending on the 
percentage rate. You may press BREAK at 
the perforation if you do not want the 
second page. 

No responsibility for tax collection is 
assumed. The figures depend on how the 
computer rounds off amounts and may 
have an occasional penny difference. But 



these printed charts compare favorably to 
the printed charts given out in my area. 
When you are finished, you may take 
a red pencil and draw a line behind the 
row of stars in each column. This causes 
them to stand out and makes them easier 



The Listing: TAXTABLE 

1 'TAX TABLE 

2 'WRITTEN BY CHARLES GIBSON 

3 'COPYRIGHT (C) MARCH 1991 

4 "BY FALSOFT. INC. 

5 'RAINBOW MAGAZINE 

10 'TAXTABLE-WRITTEN BY CHARLES 

LEE GIBSON-701 SHERMAN- EDWARDSVI 

LLE.IL 62025 

20 CLS:CLEAR 

30 G=.01:K-.004:L-.01 

40 DIMB(1000):DIMC(1000):DIMD(10 

00) 

50 POKE150.18:'BAUD RATE 2400 

60 INPUT"ENTER RATE (.03 FOR 3%) 

";H 

70 PRINT" INITIALIZING- PLEASE 

WAIT": PRINT" ABOUT TWO MINUTES" 

:PRINT" AT HIGH SPEED" : PRINT" 

BE SURE PRINTER IS ON LINE" 

80 POKE 65497.0 

90 J-G*H 

100 IFJ->K THEN GOTO 120 

110 G-G+.01:GOTO90 

120 A-A+1:PRINT@174.A:IFG>101 TH 

EN GOTO 140 

130 B(A)-L:C(A)=G:D(A)-J:L-G+.01 

:K-K+.01:GOTO110 

140 E-0:F-80:M-160:N=240: 0-320 :P 



to read. Then fold and place the sheets in 
a plastic protector so you can flip it over 
for the second page, if that is required for 
your tax table. If you need a second copy, 
advance the page to the next sheet, type 
GOTO 140 and press ENTER. 



-400 

150 POKE 65496.0 

160 PRINT#-2." TAX TABLE AT- " 

;H*100:"«" 

170 PRINT#-2. CHR$(27):CHR$(20): 

CHR$(27):CHR$(56); 

180 E-E+1:F-F+1:M-M+1:N-N+1:0-0+ 

1:P-P+1 

190 IF P-481 THEN GOSUB 240 

200 IF E-531 THEN GOTO 230 

210 PRINT#-2.USING'W.#":B(E): 

C(E):D(E)::PRINT#-2."*"::PRINT#- 

Z.USING"####.##":B(F):C(F):D(F>: 

: PRINT#-2 . "*" : : PRI NT#-2 . US I NG"## 

##.#"; B(M);C(M):D(M)::PRINT#-2. 

"*"::PRINT#-2.USING"####.##":B(N 

):C(N);D(N); 

220 PRINT#-2."*"::PRINT#-2. USING 

"####.#" :B(0):C(0):D(0);: PRI NT# 

-2."*"::PRINT#-2.USING"##.#"; 

B(P);C(P):D(P): : PRINTS- 2."*": GOT 

180 

230 PRINT#-2.CHR$(27):CHR$(19):C 

HR$(27):CHR$(54):END 

240 PRINTS- 2 :PRINT#-2:PRINT#-2:P 

RINT#-2 

250 E-481:F-531:M-581:N-631:0-68 

1:P-731: RETURN 



/R\ 
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Would You Buy a Car You Couldn't Get Fuel For? 

Why Buy a Computer You Can't Get 

Software For? 

Many of you are now considering an alternative to the Color Computer to run OS/9. Are you really going 
to invest in an untried alternative with very limited software? Why not buy a computer that will run a UNIX 
Compatible (OS/9 like) operating system AND MS-DOS. According to published articles, this combination 
of industry-standard operating systems would run more than 90% of ALL of the software that has EVER 
been written. Compare the software bases represented below. We call these systems the OWL ATom.™ 
Can your alternative to the CoCo be fixed locally? On-site service is available most areas on the ATom. 






OWL ATom™ ET or SX 



These highly adaptable computers we 
call the OWL ATom™ scries. They are not 
newcomers to the computer world, but are 
the current versions of computers which 
we have been building for more than 6 
years. All systems can be configured with 
your choice of hard drive, graphics 
monitor, and 6 different processors. The 
systems described here are typical of the 
new versions of our line which offer 2 
industry-standard operating systems. 



For general features of our OWL 
ATom including expansion capabilities, 
check out the table below. Comparisons 
are also given to several Tandy™ com- 
puters. The resolution of the optional 
VGA is also given. 

Typical system components: 

Processor: 80286-12 or 80386SX-16 

Floppy drive: 1.2 or 1.44 Meg 

Memory: 1MB 

Hard Drive: 40 MB, 28 ms. 

Monitor: TTL Monochrome 
(720X350) 

MS-DOS -Software: 

MS-DOS (with all utilities) 

GWBASIC 

Integrated Software including: 

Desktop Organizer with tracker 

Outliner 

Word Processor 



Spelling Checker 

Spreadsheet 

Data Base 

Graphics program 

Communications 

UNIX Compatible Software: 

Coherent™ (A UNIX Compatible 

Operating System) 
C Compilier 
Full Screen Editor 
Line Editor 
Text Formattor 
AWK Language and Yacc 
Standard UNIX utilities 
Documentation: 
Over 1500 pages and VHS Tape 
One of the best features is the price: 



<3j295/$1495 



FEATURES 


OWI ATnm 


2500 XI.* 


I000TW2* 


Processor (Speed) 


X<>28*(12) 


80286(10) 


80286(8) 


Total Slots 


R 


3 


4 


16BitSlols 


fi 


3 





Standard Memory 


1024K 


1024K 


640K 


Max. on Board RAM 


4(196 K 


1024K 


768K 


Graphics Output 


VGA 


VGA 


CCA 


Max. Resolution 


11124X768 


640X480 


640X200 


Drive Slots 


S 


3 


3 


Hard Drive Interface 


Yt'.s(16 Hit) 


Yes(l6Bil) 


Ycs(XIiit) 


Floppy Drive 


1 .2 or t .44 VIpp 


1.44 Meg 


720K 


Power Supply (Walts) 


200 


70 


67 


Warranty ( Parts and Labor) 


IVear 


1 Year 


1 Year 



* Trademarks as follows: Model numbers -Tandy Corporation. MS-DOS- Microsoft. Inc.. 
OS/9 -MicroWarc. Inc., UNIX- AT&T. Inc. 



First year on-site service $45 (Most areas) 
VGA Color (800X600X256 colors) $400. 
Call 215-837-1917 for other options 

OWL- 
WARE 

P.O. Box 116 
Mertztown, PA 

19539 

Call to Order: 

(800)245-6228 

PA and Support: 

(215)837-1917 





Proven 



On the Razors Edge of 



The New Frontier: 



The Most Advanced Color Computer 
Drive Systems Ever Offered! 

Fast No-Halt SCSI Floppies Using Optional SCSI Controller 



Proven Performa 

This is the most advanced, fully assem- 
bled CoCo hard drive system offered. 
Using the optional OMTI 5200 SCSI 
controller with our Hard Drive Inter- 
face, our new system will support 
no-halt floppy drives. You need not wail 
while typing or worry about clock lime 
losses. Why be limited to 3 floppy 
drives? A complete system could now 
consist of 1-3 standard CoCo floppy 
drives, 1-2 (or more) hard drives, and 
1-3 no-halt floppies using standard (not 
just CoCo) OS/9 format. You can use 



nee for Demanding Home or 

single or double-sided 40 or 80 track 
drives with the SCSI no-halt controller. 

There are several new features with this 
improved interface. These include: 

• Full SASI/SCSI compatible (this al- 
lows many add-ons to the versatile 
SCSI buss) 

• No-Halt Floppies with optional SCSI 
controller allows full type-ahead 
during access 

• Low factory-direct prices 



Business Users 

• Fast Delivery from factory stock 

• Optional Real Time Clock with built 
in battery (3-10 year lifetime) 

• With the Clock you have 240 Bytes of 
battery backed up RAM for password 
protection or data storage! 

• Same super stable LRTech quality 



20 or 30 Meg. 40 Meg, 80 Meg. 

System Prices: (Includes Hard Drive, case, & fan, SCSI Controller*, 
LR/OWL Interface, Software. Fully assembled and tested.) 

$495. $535. ^875. 

Super System Prices: (LR/OWL System as above but OMTI 5200 
SCSI Controller AND 3.5" or 5.5" HD 80 Track Floppy in same case) 

$595. $645? $1 039.(2 cases) 



*SCSI controller is OMTI 5100. Add $75 for OMTI 5200 with FDU. 

■■-'-'-ymm-m. ¥■:■ '■■■•■■■ •' ">KK»«f*™*™**« 

Introducing the Qu/cJc-L/'nf( ™ Interface 



Provides both a 64K Printer Buffer and Serial and Parallel Interfaces. 

Serial to Parallel Printer Interface (64K Buffer) $65. 

Converts serial computer oulpul lo parallel printer and also provides a 64K buffer in fronl of (lie 
printer. Serial side Female DB-2S and Parallel side is Centronics. Includes Centronics to ( enlronlcs 
cable and power ACadapter. If you need an adapter from the CoCo 4-pin serial to DB-2s add S9. 
From 300-38.400 Baud. 



Parallel to Serial Interface (64K Buffer) 



$45. 



Same as above except it converts Centronics parallel computer oulpul lo DB-25 Female serial. Plug 
into an IBM printer cable lo provide output lo a serial plotter. 



Parallel to Parallel (64K Buffer) 

This is parallel printer buffer « ilh no conversion. 



$39. 



Interface Price only: $85. 
Real Time Clock-RAM: $25. 



n 



Drive System Parts 



20/30 Meg 
40 Meg 
80 Meg 



Hard Drives 

ST/PTI S229. 

PTI 265. 

ST4096 590. 



SCSI Controllers 
OMTI 5100 JfD Only $79. 

OMTI 5200 Hp/FD 169. 

OMTI 5400 HD/FD/Tape 199. 

(Note: We have no drivers for tape yel) 

Cases and Cables 
Case, 45 Watt PS, Fan $1 05. 

Cable set (3 pieces) 25. 

Drives have a l-ycar limited warranty. 
Other parts are 90-day warranty. 
Please Note - At these prices, only very 
limited support can be given. 



Technology 



the Color Computer Frontier 





Floppy Drive Systems 

The Highest Quality for Years of Service 
Drive Systems (Half Height, Double Sided, 

Direct Drives) tp I 0«7- 

Drive systems complete with drive, controller, legal DOS, cable, case, 
power supply, and manual 

Drive 1 Systems (Half Height, Double Sided, 
Direct Drives) $ I 1 5 ■ 

New 3.5", 720K Drives for OS-9 with case 



& Power Supply 



$149. 



Drive 1 Systems have drive, case, power supply. (You may require op- 
tional cable and/or DOS chip to use) 

Special for 0/1 Combos (0,1,2,3) $259. 
SALE Prices on Drives! 



HALF- HEIGHT DRIVE 
UPGRADES FOR RS HORIZON- 
TAL CASES 

Why only double the capacity of your 
system when you can triple in the same 
case? Kit includes: double-sided to fit 
your case, chip to run both sides of new 
drive, hardware, and detailed instruc- 
tions. Easy! Takes only 5 minutes! 

Model Only $119. 

500, 501, or 502 



Drives 1 Year Warranty 



OWL Phones 

Order Numbers (only) 

1-800-245-6228 

1-215-682-6855 

Fax: 1-215-837-1942 

Technical Help 

4 1-215-837-1917 



OWL WARE Software Bundle 



Disk Tutorial/Utilities/Games 
DISK TUTOR Ver 1.1 

Learn how to use your disk drive from 
this multi-lesson, machine language 
program. This tutor takes you through 
your lessons and corrects your mistakes 
for a quick, painless disk drive introduc- 
tion. (This professionally written tutor 
is easily worth the bundle's total price.) 

3 UTILITIES 

A copy verify, copy, and DOS utility. 

2 GAMES 

We will select 2 games trom our stock. 
These are sold for more than $20 each. 



Do not mistake this software with cheap 
"Public Domain" software which others 
offer. All of this software is copyrighted 
and professional in quality. The tutor is 
unique with us and has helped 
thousands of new users learn their disk 
drive. 



only $27.95 

(or even better) 

only $6.95 with 

any Disk Drive Purchase!! 



All drives are new and fully assembled. 
We ship only FULLY TESTED and 
CERTIFIED' at these low prices. We 
use Fuji, YE Data, and other line 
brands. No drives arc used or surplus 
unless otherwise slated to you when 
you order. We appear to be the one of 
the few advertisers in Rainbow who 
can truly make this claim. We have 7 
years experience in the CoCo disk 
drive market! We arc able to provide 
support when you have a problem. 



512K Upgrade 

Again at a popular price. Fully as- 
sembled and tested before shipping. 
Easy to install. Uses fast 120 ns. chips. 

Only $85. 

Now includes memory test, Ram Disk 
Lighting, Printer Lighting, and Back- 
up Lighting. All with an upgraded 
manual exclusive with OWL! 



Our prices include a discount for cash but 
do not include shipping. 

OWL-WARE has a liberal warranty policy. During the warranty 
period, all defective Items will be repaired or replaced al our 
option at no cost to the buyer except for shipping costs. Call 
our tech number for return. Return of non-defective or un- 
authorized returns are subject to a service charge 



OWL-WARE 

P.O. BOX 116 

Mertztown, PA 19539 



A software technique that eliminates 
the cartridge-interrupt problem 



Interrupted Again 



by Robert Gault 



Valuable information about the 
proper use of the GIME car- 
tridge-interrupt line appears in 
two articles in past issues of 
THE RAINBOW: "The OS-9 
CART* Interrupt Fix" by Marty Goodman 
(November 1989, Page 50). and "CoCo 3 
GIME CART* IRQs Explained" by Bruce Isted 
(August 1990, Page 20). Any programmer 
working with software or hardware that 
depends on interrupts should read these 
articles. 

I use a no-halt. Disto Super Controller II 
with my CoCo system. This controller 
worked fine in the no-halt mode until I 
installed a Multi-Pak Interface. I found I 
could not use the no-halt drivers with the 
CoCo 3, OS-9 Level II. the controller and the 
Multi-Pak Interface. Because of these diffi- 
culties, I found the previously mentioned 
articles of great interest. 

Bruce Isted stated in his article that the 
no-halt Disto drivers use the GIME-toggle 
technique and should handle interrupts 
correctly. I disassembled the drivers and 
determined they do indeed use this tech- 
nique. So having proper drivers is clearly 
not enough. I eagerly tried the toggle tech- 
nique presented by Bruce for the clock 
module since I was reluctant to do the 
hardware modification described in Marty 
Goodman's article. 

I found the patches as listed in Bruce's 
August 1990 article do not work. I had no 
reason to doubt the technique should work 
since ihe information originated with both 
Tandy and Kevin Darling. After careful 
examination of the code in the article by 

Robert Gault has a Ph.D. in chemistry. He 
began programming with a gray CoCo 1 
and has written articles for THE RAINBOW 
and many former Color Computer publica- 
tions. He can be contacted at8.UN.Renaud. 
Grosse Pointe Woods, Ml 48236 Please 
include an SASE when requesting a reply. 



Bruce Isted, I found the problem and veri- 
fied my finding through further testing and 
comparison with the Disto/Darling drivers. 

A Fix for a Fix 

The assembly-language source code in 
Listing 1 is a modified reprint of Listing 1 
from Bruce's article. The change is com- 
mented and involves the addition of a single 
instruction that corrects a subtle error in the 
logic of the original version. 

The BASIC09 procedure in Listing 2 can 
be used with Bruce's BASIC09 Filepatch 
procedure to produce a new clock module. 
Please consult the original article for spe- 
cific information about Filepatch. 

Use a text editor or the OS-9 bui 1 d and 
edi t commands to enter the procedure in 
Listing 2. Save the file as cl ock60 . ptc in 
the root directory of a backup of your Boot/ 
Config/BASIC09 disk. Also, put a copy of 
Fi 1 epa tch . b09 from the August 1990 issue 
in the root directory of this disk. 

After copying both files, make sure the 
Boot/Config/BASIC09 disk is Drive /dO. 
Enter the following commands: 

load /d0/cmds/basic09 

chd /do/modules 

rename clock. 60hz clock. 60hz. old 

basic09 

At BASIC09's B: prompt, enter 

load /d0/filepatch.b09 

run filepatch ("cl ock60.ptc"."cl 

ock.60hz.old"."clock.60hz") 

When Fi 1 epatch finishes its work, enter 
bye to exit BASIC09. At this point you can 
enter chx /dO/cmds and run config to 
create a new system disk with the modified 
clock module. 

Nuts 'n Bolts 

As originally published, the i rqpol 1 . asm 



routine loads Register A with the GIME IRQ- 
Enable image. This is transferred to Regis- 
ter B for temporary storage. Bit of Regis- 
ter A is turned off by the AN0A U\ 111 1110 
instruction. The value in Register A is then 
stored in the GIME IRQ-Enable register at 
SFF92. The result is that the IRQ interrupt is 
disabled. 

At this point the value in Register B is 
stored in SFF92. The assumption, as stated in 
the article, is that this reactivates the GIME 
IRQ line, and a trapped interrupt can then be 
processed. But this assumption is valid only 
if the IRQ-Enable image has Bit set. This 
cannot be reasonably assumed under all 
conditions. The single instruction I added. 
ORB #1, guarantees that Bit is set and the 
IRQ line is indeed enabled, if only briefly. 
Note that since the IRQ-Enable register image 
has not been changed, the system could not 
be expected to eventually reset itself to 
whatever status has been indicated. 

I am happy to report that the Disto SC-II 
controller now works perfectly in the no- 
halt mode, both with and without a Multi- 
Pak Interface. 

RAINBOW ON DISK Subscribers 

For your convenience, Fi 1 epatch . b09 
is included with clock60.ptc on this 
month's RAINBOW ON DISK. To copy both 
files, insert the July 1991 RAINBOW ON DISK 
in Drive /dO and enter 

copy -s /d0/source/filepatch.b09 
/d0/filepatch 



and 

copy -s /d0/source/clock60.ptc / 
d0/modules/clock60.ptc 

Follow the prompts, inserting a backup 
of the Boot/Config/BASIC09 disk as the 
destination disk and the RAINBOW ON DISK 
as the source disk. Q 
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OS-9 Level II 


* 


Listing 1: 1rqp 


ol 1 .asm 


D.Poll equ 


$0026 


D.IROER equ 


$0092 


D.IROS equ 


$00AF 


IRQEnR equ 


$FF92 


IRQPoll jsr 


[D.Poll] 


bcc 


IRQPoll 


GToggle Ida 


#$11111110 


anda 


<D.IRQS 


sta 


<D.IRQS 


Ida 


D.IRQER 


tfr 


a.b 


anda 


#%11111110 


* new instruction to guarantee IRQ line enables * 


orb 


« 


************************************************* 


sta 


>IRQEnR 


stb 


>IRQEnR 


clrb 




rts 





Listing 2: clock60 


.ptc 




* FilePatch patch file to add 




* revised GIME CART* toggle 




* to unmodified 


Clock. 60Hz 




* from CoCo 3 OS 


-9 Level II 




C 0002 01 02 






C 0003 EE 0C 






C 0008 17 F6 






C 000A A8 C6 






C 0012 09 0A 






C 0015 7E 9C 






C 0018 00 IE 






C 001B 41 5F 






C 0034 04 06 






C 0035 DC 30 






C 0036 26 8D 






C 0058 C4 C2 






C 0086 DC 9E 






C 0088 DD 9F 






C 00BE 06 04 






C 00BF AD 8D 






C 00C0 9F Bl 






C 00C1 00 20 






C 00C2 26 02 






C 00C3 24 8D 






C 00C4 FA B3 






C 0191 D6 C6 






C 01B9 70 52 






C 01C5 4D 2F 






I 0037 02 00 57 






I 0090 08 AD 9F 


00 26 24 FA 86 FE 




I 0098 08 94 AF 


97 AF 96 92 IF 89 




I 00A0 08 84 FE 


CA 01 B7 FF 92 F7 




I 00A8 04 FF 92 

V 

* CRC bytes for 


5F 39 




comparison only 




*C 0207 D2 E4 






*C 0208 8A 6D 






*C 0209 FD IB 




/«\ 



PUT YOUR COCO TO WORK. . . 




RAINBOW 

Cfl"l*ICAIiO* 

KM 

CHECK WRITER. Uses your printer and stan- 
dard bank checks to help you monthly with 
your accounts. Saves files, reloads, edits 
and pauses printer to let you write In 
amounts. Has Index screen. Manual. $19.95 
BANKMAN. Continuously updates your check 
book. Save, edit and print files. Lets you 
analyze spending; reconciles, summarizes 
banking transactions. With manual. .$29.95 
INVENTORY MANAGER from Forrest Enter- 
prises. Writes invoices, keeps track of 

stock, saves time and money $24.95 

GENERAL STATISTICS. Computes over 50 
stats, Including Standard deviation & Std. 
error, Covariance, Correlation, Chi-Sq. & 
ANOVA. Includes screen tables and manual. 
Edits, Saves & Prints data. User friendly. 
Great for H.S. & College students. $29.95 
ENVELOPE WRITER. Prints return and mail- 
ing addresses directly on the envelope with 
a DWP or on tractor envelopes with a DMP. 
Saves on labels! Memorizes return addres- 
ses. Prints custom fonts with all printers. 
Perfect for small or large Jobs. . . $17.95 
BRAINBUSTERS. Multiple Cholce/True-False 
Test Writing program. Lets you Save, Edit, 
Select, Randomize & Print. Many more op- 
tions. Use for business or fun. . . . $29.95 
THE EXAMINER. Use with above program to 
take "On Screen" tests. Grades and Saves 
results. For home or classroom. . . $19.95 
TRIVIA 1-3. Try these BRAINBUSTER quiz- 
zes. History, Sports, Sci., etc. Each $5.95 
BASEBALL STATS. Keeps track of 20 stats. 
Continuously updates. Full of options! User 

friendly. Includes manual $29.95 

QUICK STATS . A baseball scoreboard! Keeps 
track of over a dozen stats. Lets you Save, 
Edit, and Print out data. Manual. . . $22.95 
BALL CARDS. A database for all sports 
card collectors. Super fast find and re- 
trieval of record files. Manual. . . . $19.95 
COCO LABELS. Prints fancy font* with all 
printers. Select names from alphabetical 
screen Index. Prints duplicates. . . .$19.95 
CALCULATOR. One of a kind. Prints out! 
Simulates adding machine. AM standard 
functions plus 7 memory banks. . . . $14.95 



Specify COCO 1, 2 or 3. 
Disk Only. Sand check or 
money order. Add S3. 00 

Shipping Handling. 
Illinois Residents add 
6.25% Sales Tax. 
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CoCo 
Consultations 



Serial Connections 



by Marty Goodman 

Contributing Editor 



• I'm having a problem connecting a 
printer to the 4-pin (hit-banger) se- 
rial port on my CoCo 3. I used a modem 
cable with a DB-25 connector that worked 
just fine on my modem. What is the trouble? 
Carl J. Boll (CBJ) 
Chicago. Illinois 

A Proper cables for connecting a printer 
to the 4-pin port on the rear of the 
CoCo differ in their wiring from proper 
cables for connecting a modem to the port. 
The pinout for a modem cable is as follows: 

4-pin DIN DB-25 Description 

1 8 carrier detect 

2 3 data from modem 

3 7 ground 

4 2 data to modem 

While, for a printer cable, you'd typically 
have: 



4-pin DIN 

I 

2 
3 
4 



DB-25 

n/c 
20 

7 
3 



Description 

busy handshake 

ground 

data to printer 



Note that you may have to check the 
manual for your printer or printer buffer to 



Martin H. Goodman. M.D.. a physician 
trained in anesthesiology, is a longtime 
electronics tinkerer and outspoken com- 
mentator — sort of the Howard Cosell oj 
the CoCo world. On Delphi. Marty is the 
SlCop of rainbow's CoCo SIG and database 
manager ofOS-9 Online. His non-computer 
passions include running, mountaineering 
and outdoor photography. Marty lives in 
San Pablo. California. 



make sure the device uses Pin 20 for hand- 
shaking and that it uses a Low signal to 
mean that the printer or buffer is busy. 
Some printers allow you to set which pin 
the handshake signal is on and/or the polar- 
ity of the busy handshake using DIP switches 
in the printer. 

When you use the 4-pin port to talk to a 
printer, serial data need only go one way — 
to the printer. The only communication in 
the other direction is of a far less complex 
sort than serial data. A handshake line that 
is either High (printer ready to receive data) 
or Low (printer is busy) tells the computer 
to stop sending data. Thus. Pin 4 of the 
CoCo serial port, which is used to receive 
serial data when the port is used with a 
modem, is reprogrammed by the printer 
driver to act as a handshake line. Pin 1 is not 
used because it is an oddball and compli- 
cated control pin inside the computer, and 
for non-interrupt-related functions, it is best 
left alone. It is used for modem communi- 
cations as a carrier detect line only because 
all other available lines on the 4-pin port are 
already used. 

Back-to-Back Modems 

^^k I'm trying to transfer text files [mm a 
^R ( ommodore 64 to a Color Computer. 
I have modems hooked to both the 
Commodore 64 and my CoCo 3. 1 have also 
connected the two wires from the telephone 
line coming out of the modems. I am having 
trouble getting one modem to answer the 
other one. though. Can you help me? 

Don Vaillancourt (DONVAIL) 

Mississauga. Ontario 

Canada 

A Data transfer between a Commodore 
64 and a CoCo 3 is a bit tricky. With 
most other computers, I*d have told you to 



dispense with the modems and just use a 
null-modem cable. However, the 
Commodore 64's serial port is not standard. 
It uses RS-232 signal protocol, but not RS-232 
voltage levels. Instead, it uses TTL voltage 
levels. To make matters worse, the disk 
data-storage format is utterly incompatible 
with CoCo disk controllers, so no "read 
alien disk" program is possible on the CoCo. 
If you were a hacker, I'd suggest you make 
level-converter circuitry for the 
Commodore 64 serial port (using 1488 and 
1489 or equivalent level-converter chips) 
and then use a null-modem cable. How- 
ever, since you have terminal programs and 
modems working with both computers, 
perhaps the simplest approach would be to 
upload the files in question from your 
Commodore to your Workspace on Delphi. 
Just type WS at the CoCo SIG prompt, then 
type XUP to Xmodem upload (you can use 
YUP and ZUP for Ymodem and Zmodem) 
and follow the prompts. Then logon with 
your Color Computer, go to Workspace and 
XDOW (YDOW or ZDOW) the files using Xmodem 
(Ymodem or Zmodem). 

You may still encounter some problems 
because Commodore ASCII files are not 
international standard ASCII. If your termi- 
nal program on the Commodore 64 does not 
make certain translations, you may have to 
write a simple BASIC conversion program 
that changes the values of certain charac- 
ters in the ASCII files you got from the 
Commodore. The problems involved in- 
clude reversal of upper- and lowercase and/ 
or certain characters on the Commodore 
that are used for graphics and control func- 
tions. Your approach of hooking one mo- 
dem directly to another, while a bit overly 
complicated, should work. Perhaps you 
failed to put one modem into Answer mode. 
If the modems are Hayes-compatible, type 
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ATA when in Command mode to force one 
modem off hook and into Answer mode. 
With the second modem in Command mode, 
enter ATD to put it into Originate mode and 
attempt to connect it to the other modem. 

RS-232 Signal Levels 

^^ 1 I hy dt >< s R 5 232 signal pn >toa >l dii ■ 
^R, late the ■ 12 and -12 volts? I 

thought inside today's computers — espe- 
cially laptops — 5 volts is the only voltage 
level used. 

Tika Cat- 
Rochester , New York 

A RS-232 protocol specifies that a one is 
a voltage of between 5 and 15 volts 
and a zero is a voltage of between -5 and -15 
volts, both at the transmitter site. It also 
specifies that, by the time the signal gets to 
the receiver, the one must be at least 3 volts 
and the zero must be no higher than -3 volts. 
This results in a minimum distinction be- 
tween zero and one of 6 volts. In practice. 
RS-232 voltages tend to be around 10 to 12 
volts (plus and minus), resulting in a dis- 
tinction between a one and a zero of over 20 
volts. This great voltage difference between 
the one and zero is what makes RS-232 such 
a rugged signal-transmission protocol. Even 
when RS-232 signals are sent over wires of 
over 100 feet, the small amount of degrada- 
tion of the voltage, and noise caused by thai 
run of cable, is unlikely to affect the ability 
of the receiver to figure out what the trans- 
mitter is sending. Thus, even though a lap 
computer may indeed use 5 volts for nearly 
all its functions, it has a source of +12 and 
-12 volts (sometimes just inside one chip, 
the RS-232 level-converter chip) to produce 
industry standard RS-232 voltage levels. 

In contrast, TTL signal levels specify a 
zero with a voltage of between .9 and 2.4 
volts and specify a one with a voltage of 3.4 
to 5 volts. As you can see. the distinction 
between a one and a zero is far smaller, as 
is the range of acceptable voltages. Thus. 
TTL signal levels are far more susceptible to 
noise and voltage degradation when run 
over long cables. IBM printer cables, for 
example, are best kept under 1 2 feet. Robust 
TTL parallel-printer cables (larger gauge 
wire and/or cables with every other wire at 
ground, or using twisted pairs of ground 
and signal for each data and control line) 
can work at lengths of 25 feet or more, but 
are not generally recommended. 

Interfacing with Lightning 

^^k The power line near my house was 
^B^ recently struck by lightning. At that 
time, my CoCo 2 was plugged in. hut was 
not turned on. After the lightning struck, 
some of the other appliances that were on at 



the time were not damaged, hut my CoCo 2 
would not work. A closer inspection found 
that the fuse between the AC and the trans- 
former had blown. Why? How should I 
proceed with repairing my faithful, old 
CoCo 2? 

Kelly Thompson 
Otis. Colorado 

A The CoCo (all models) always has 
power going to the power transformer 
while it is plugged in. The power switch on 
the CoCo interrupts the low voltage as it 
leaves the secondary of the transformer. 
This explains why most people note their 
CoCos are a bit warm near the transformer, 
even when not turned on. I believe Tandy 
must have designed the CoCo this way for 
reasons relating to the added expense of in- 
stalling a 110-volt AC switch and/or the 
hassle of clearing such a switch with Un- 
derwriters Laboratories or some federal 
regulatory agency. Thus, when lightning 
struck your power line, the surge ran right 
into the transformer blowing the AC fuse. If 
you are lucky, mere replacement of the fuse 
will restore your CoCo to operation. It is 
possible, however, that the surge cooked 
some of the windings on the primary of the 
transformer, which would require replace- 
ment of the transformer. The CoCo's trans- 
former supplies roughly 20 volts center- 
tapped. You can replace it with a 2-amp 18- 
volt center tapped transformer of the sort 
available from Radio Shack. Of course such 
a replacement will have to be mounted 
outside the CoCo, since it will not fit inside 
the case. Note that CoCo 2s can be found 
used at garage sales and swap meets for S10 
to S25, so you might not want to spend too 
much time and money fixing the one you 
have. 

RGB-I Meets RGB-A 

^^ / have <; Tandy loOOIK with </ 9-pin 
^BT color RGB connector. I want to adapt 
my CM-8 to work with this video output. How 
do I do this? What is the pinout for the 
connector on my 1000HX? 

David J. Fall 
West Valley. Utah 

A The 1000HX uses IBM CGA-type RGB 
video. The standard pinout on a DB-9 
connector for this is as follows: 

Pin Description 

1.2 Ground 

3, 4, 5 Red. Green, Blue (respectively) 

6 Intensity 

7 not used 

8,9 HSync and VSync (respectively) 

CGA RGB video is similar enough to that 



of the CoCo 3 that you likely can get an 
image using yourCM-8. However, you will 
be able to get only six colors plus black and 
white with the CM-8. You will not be able to 
display all 14 colors (plus black and white) 
that are supported by CGA video. The rea- 
son is that the CM-8 has no provisions for 
supporting the Intensity line of the CGA 
protocol. Just connect all like-named signal 
lines between the CM-8 and the IBM CGA 
port of the lOOOHX.andyou likely will get an 
acceptable image, apart from the fact that 
the resolution of the CM-8's screen is so 
poor (.51 mm dot diameter) that it is mar- 
ginal for display of 80-column text. There is 
a remote possibility that sending TTL-level 
video signals into the analog-level inputs of 
the CM-8 could damage its input chip, though 
to date I've had no reports of such damage 
from others who have used their CM-8s with 
IBM-type CGA video signals. 

Repackaging the CoCo 

^^^ / knowyou don't like using ii ) cable 
^SL or 40-pin ribbon cables on the CoCo 
system bus. However. I may be forced to use 
at least a short length of such cable in the 
course of shoe-homing my CoCo 3. Multi- 
Pak Interface and various devices into a PCI 
AT-type case. Is it any better if I run the 40- 
conductor cable between the Multi-Pak and 
a given device, as opposed to between the 
CoCo and the Multi-Pak? How about using 
a very short length of cable to mount the 
Multi-Pak at angles of 90 or 180 (back-to- 
back) degrees with respect to the CoCo 
motherboard? Is there any way to make a 
more reliable and rugged wire connection 
between a CoCo and a Multi-Pak or be- 
tween a Multi-Pak and another device? 

Bob Kemper (BOBKEMPER) 
Fort Stewart, Georgia 

A Many years ago I made a repackaged 
Color Computer in which 1 had the 
Multi-Pak mounted back-to-back with the 
CoCo 1 motherboard. I used a very short 
length (less than one inch) of 40-conductor 
ribbon cable. I also ran 14-gauge ground 
wires between the ground tabs of the Multi- 
Pak and the CoCo motherboard. With this 
arrangement, I never had the slightest relia- 
bility problem. So, yes, you can use a rib- 
bon cable to bend the connection between 
your CoCo 3 and Multi-Pak. provided you 
keep that cable as short as possible (under 
one inch) and you also link the grounds on 
both boards with a nice, thick, ground wire 
or strap. It is equally bad, however, to have 
a long ribbon cable between the CoCo and 
Multi-Pak as it is to have one between the 
Multi-Pak and a plug-in device. Some 
devices are far more sensitive to the pres- 
ence of a cable. A floppy disk controller, for 
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Yes! They're still available 



Rainbow 
Back Issues 




BACK ISSUES STILL AVAILABLE 

Have you explored the wealth of information in 
oar past issues? From our very first, four-page 
issue to many with more than 300 pages of 
material, it's all just for CoCo users — agreat 
way to expand your library! 

A WORLD OF INFO 
AT A BARGAIN PRICE 

All back issues sell for the single issue cover 
price. In addition, there is a $3.50 charge for the 
first issue, plus 50 cents for each additional 



issue for postage and handling if sent by United 
Parcel Service. There is a $5 charge for the first 
issue, plus a S I charge for each additional issue 
on orders sent by U.S.Maif UPS wiilnotdeliver 
to a post office box or to another country. 

MOST ISSUES STILL AVAILABLE 

Available issues through June 1982 are pro- 
vided on white paper in a reprint form. All 
others are in regular magazine form. VISA. 
MasterCard and American Express accepted. 
Kentucky residents please add 6 percent sales 



tax: Canadian residents, 7 percent GST- lit order 
to hold down costs, we do not bill, and no 
C.O.D. orders are accepted. 

Due to heavy demand, we suggest you order the 
back issues you want now while supplies last. 
Toofder, review and fill out the form below and 
mail it with your payment. 

For greater convenience, order through the 
Rainbow Magazine Services area of our Delphi 
CoCo SIG. 



RAINBOW INDEX 

A complete index for, July 1 981 through June 1 984, is printed In the 
July 1984 issue. Separate copies are available for $2.50 plus 50c 
handling. Indexes for subsequent years are published annually in the 
July issues of the rainbow. 

TOTAL 

KY RESIDENTS ADD 6% 



CANADIAN RESIDENTS ADD 7% GST 

U.S. MAIL CHARGE 

SHIPPING & HANDLING 

U.P.S. CHARGE 

TOTAL AMOUNT 

ENCLOSED 



Article Reprints 

In instances where a given issue is now out of print and nol available for 
purchase, we do provide photocopies of specific articles. The cost for this service 
is $1 .50 plus 50 cents S/H per article. This service is provided only in the case of 
out-of-stock issues. 

Name 

Address 

City State 

J Payment Enclosed, or 

Charge to my: □ VISA Q MC -1 AE 

CARD # . 



Zip 



EXPIRATION DATE 
SIGNATURE 



PHONE (). 



TO ORDER BY PHONE (credit card orders only) call (800) 847-0309, 
9 a.m. to 5 p.m. EST. All other inquiries call (502) 228-4492. 
send to: THE RAINBOW, The Falsoft Building, P.O. Box 
385, Prospect, KY 40059 

Please send me the following back issues: 



VOLUME 1 

JUL 81 Premier Issue $2.00 Q 

AUG 81 $2.00 U 

NOV 81 $200 U 

FEB 82 $2.00 □ 



VOLUME 2 

JUN 83 Printers 



VOLUME 3 

AUG 83 Games 



$2.95 □ 
$2.95 3 



SEP 83 
OCT 83 
MAR 84 
APR 84 
MAY 84 
JUN 84 
JUL 84 



AUG 84 
SEP 84 
OCT 84 
NOV 84 
DEC 84 
JAN 85 
FEB 85 
MAR 85 
APR 85 
MAY 85 
JUN 85 
JUL 85 



AUG 85 
SEP 85 
OCT 85 
NOV 85 
DEC 85 
JAN 86 
FEB 86 
MAR 86 
APR 86 
MAY 86 
JUN 86 
JUL 86 



AUG 86 
SEP 86 
OCT 86 
NOV 86 
DEC 86 
JAN 87 
FEB 87 
MAR 87 
APR 87 
MAY 87 
JUN 87 
JUL 87 



AUG 87 
SEP 87 
OCT 87 
NOV 87 
DEC 87 
JAN 88 
FEB 88 



Education 

Graphics 

Business 

Gaming 

Printer 

Music 

Anniversary 

VOLUME 4 

Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Utilities 

Business 

Simulations 

Printer 

Music 

Anniversary 

VOLUME 5 

Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Utilities 

Business 

Home Help 

Printer 

Music 

Anniversary 

VOLUME 6 
Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Utilities 

Business 

Home Help 

Printer 

Music 

Anniversary 

VOLUME 7 

Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Utilities 



$2.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 



$3.95 
$3.95 
$3.95 
$3.95 
S3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 



$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3,95 
$3.95 
$3.95 
$3.95 
S3.95 
$3.95 



$3.95 
$3.95 
$3.95 
$3,95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3,95 
$3.95 



$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 



MAR 88 
APR 88 
MAY 88 
JUN 88 
JUL 88 



AUG 88 
SEP 88 
OCT 88 
NOV 88 
DEC 88 
JAN 89 
FEB 89 
MAR 89 
APR 89 
MAY 89 
JUN 89 
JUL 89 



AUG 89 
SEP 89 
OCT 89 
NOV 89 
DEC 89 
JAN 90 
FEB 90 
MAR 90 
APR 90 
MAY 90 
JUN 90 
JUL 90 



AUG 90 
SEP 90 
OCT 90 
NOV 90 
DEC 90 
JAN 91 
FEB 91 
MAR 91 
APR 91 
MAY 91 
JUN 91 
JUL 91 



AUG 91 



Business 
Home Help 
Printer 
Music 
Anniversary 

VOLUME 8 

Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Home Help 

Hardware 

Business 

Printer 

Summer Fun 

Anniversary 

VOLUME 9 

Beyond BASIC 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Home Help 

Hardware 

Business 

Printer 

Summer Fun 

Anniversary 

VOLUME 10 

OS-9 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Home Help 

Hardware 

Music 

Printer 

Summer Fun 

Anniversary 

VOLUME 11 

Graphics 



S3.95 J 

$3.95 o 

$3.95 a 

$3.95 □ 

$3.95 a 



$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3,95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 



$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3.95 
$3,95 
$3.95 
$3.95 
$3.95 



$3.95 
$3.95 
$3.95 
$3,95 
$3.95 
$3.95 
$3.95 
$3,95 
$3.95 
$3.95 
$3.95 
$3.95 



$3 95 



-... — — - , — - — — , 



example, is least likely to tolerate any 
amount of ribbon cable between it and the 
Multi-Pak. A serial card, however, is most 
likely not to mind being extended some 
inches from the Multi-Pak. 

Yes. there are tricks you can use to make 
a ribbon-cable bus extender less likely to 
cause problems. You can make the exten- 
der from separate wires for each signal line 
instead of wires running in parallel all the 
way. This minimizes interference between 
one wire and another. Better yet, use a 
twisted pair of separate wire (with one wire 
of each pair being ground) for every one of 
the 35 signal lines (I exclude the two ground, 
the +5 volt line, and the +12 and -12 volt 
lines). Such a twisted-pair extender cable 
would be quite tedious to make, but I sus- 
pect it would offer a substantial advantage 
over any ribbon cable in terms of its ability 
to work reliably at moderate lengths. 

Super BASIC Errors 

jj^k / am having a problem with the ON 
^g\ ERROR GOTO function in Disk Ex- 
tended Color BASIC 2.1. When I got an error 
reading a disk file, the computer could not 
find the line number of my GOTO statement, 
despite the fact I had provided it properly. 
What's going on here? 

Fred McDonald 
New Haven. Connecticut 



A You have found one of the many er- 
rors in Super Extended BASIC. The 
error trap neglects to reset the output device 
to the screen so, if the error is a disk error, 
the error message is printed to the disk 
buffer instead of to the screen and you don't 
see it. The fix is to put POKE 11 1.0 at the be- 
ginning of your error-trap routine to set the 
output to the screen. I don't know why you 
got a UL error. 

High-Density Drives 

^^k I am considering the possibility of 
™4^ using 3 -//;< //. / 44 megabytt drives 
with my OS-9 system. How many tracks do 
they have and what hardware will I need? 

Philip Brown 
Berkeley, California 

A Both 720K and i.44-Meg 3'/i-inch drives 
have SO tracks. However, the 1.44- 
Meg drives use a data density and data- 
transfer rate that is 

twice that of 720K 

drives. Normal CoCo ^— ^^— ^^— i 
floppy controllers 
cannot handle such 
drives. Some CoCo 
hard drive systems 
include floppy con- 
trollers on the hard 
drive controller card 



that can handle higher-density ( l .2-Meg and 
l .44-Meg) floppies and include OS-9 drivers 
for such floppies. 



Your technical questions arc wel- 
comed. Please address them to CoCo 
Consultations, THE rainbow, p. o. Box 
38S, Prospect, ky 40059. 

We reserve the right to publish only 
questions of general interest and to edit 
for brevity and clarity. Due to the large 
volumeof mail we receive, weareunable 
to answer letters individually. 

Questions can also be sent to Marty 
through the Delphi CoCoSIG. From the 
CoCo SIG> prompt, pick Rainbow 
Magazine Services. Then at the rain- 
BOW> prompt , type ASK (for Ask the 
Experts) to arrive at the experts> 
prompt , where you can select the "CoCo 
Consnitations"online form, which has 
complete instructions. 
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Ever wish that your computer could display your schedule 
for the day on start up? Ever wanted some utilttios to 
perform repetitive maintenance tasks on Goal data files? 
Or, perhaps you needed to print Gcal calendar data, and 
couldn't. MV Systems' OS-9 calendar Utilities will handle 
all of these tasks and morel These utilities make 
excellent companions to the Gcal program supplied with 
Multi-Vue. Or they may be used independently to perform 
many handy scheduling tasks for you. Requires Tandy Color 
Computer 3 u/12Bk, disk drive, and OS-9 Level 2. Multi- 
Vue Recommended. 

$14.95 

High F i n a n o • 

Perform a wide variety of financial analysis calculations 
and create schedules of periodic data with this easy to 
use Multi-Vue application. Intelligent financial 

decisions are just a point and click awayl Includes 
fantastic on-line tutorials which help you learn to use 
the program quickly and easily. Includes present/ future 
value, sinking fund, loan amortization, depreciation, and 
much morel Requires Tandy Color Computer 3 v/l28k 
(256k /512k/ 1024k recommended) , disk drive, mouse/joystick, 
and OS-9 Level 2 w/Windint module. Multi-Vue recommended. 




We've put our most popular groups on sale to help you 
beat the summer heat. Sale ends August 31 , 1 991 . 



NEW NEW NEW NEW NEW NEW 

(H Deception Path: Sliding tiles challenge you 



in this ever- changing maze. Fun for all 
ages. 1-4 players. $19.95 

■ Soviet Bloc: Form solid rows from falling block ■ 
shapes in this super Tetris-type game. ■■ 

"■■ $19 ' 95 "■■■ " 

Each program plays on a 128K CoCo3. Disk required. 

Joystick required for Deception Path. 
Save $10.00! Buy both for only $30.00! 



SOLITAIRE CARD GAMES 

Classic Solitaire: Three games in one. Klondike, 
Canfield and Pyramid on one disk for just $1 4.95 

La Belle Lucie: Very addicting. Once played, this 
solitaire quickly becomes a favorite. $1 4.95 

All play on 128K CoCo3, with joystick and disk. 
Solitaire Special: Both disks for just $25.00! 



Tazman (requires OS9/LII and 51 2K) $24.95 

Kyum-Gai -To Be Ninja. OS9 Version (512K/OS9) $29.95 

Zenix (CoCo3 128K Disk) $29.95 

Crystal City (CoCo3 128K Disk) $34.95 

Armchair Admiral (CoCo3 128K Disk) $14.95 

Riddle of the Ring (CoCo3/CoCo2 128K Disk) $10.00 

Games Pack (CoCo3/CoCo2 128K Disk) $10.00 



Software submissions invited 

Checks, Money Orders, MasterCard & Visa $2.50 S&H 

COD $2.00 extra. WA addresses add 8.2% sales tax. 



Eversoft Games, Ltd 
P.O. Box 3354 
1 Arlington, WA 98223 



) 



(206) 653-5263 
10am -6pm PST 



30 day money back guarantee 
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A battle of wits against alien forces 



: ?t^ 






by Marshall Weisenbrger 



? ?^ 




elcome to the world of 
Megatank. Your mis- 
sion is to save your 
home planet from alien 
invasion. But to accom- 
plish your goal, you must battle five differ- 
ent waves of aliens — choppers, blades, 
bats, saucers and fireballs. For each suc- 
cessful attack, you are awarded a certain 
number of points, based on the type of alien. 
Points are awarded as follows: 



Choppers 


100 points 


Blades 


250 points 


Bats 


500 points 


Saucers 


1000 points 


Fireballs 


1500 points 



As written, Megatank requires a CoCo 3 
and a two-button joystick. If your joysticks 
have only one button, see the modifications 
listed below. 

You begin the game with four extra 
tanks (called ships) and two Super Savers. 
To shoot, just press the firebutton. For 
every five missed shots, you lose one tank. 

Marshall Weisenhurger is pursuing a de- 
gree in electrical cngineeringfrom Bradley 
University. He has been programming with 
a CoCo for over two years. You may contact 
him at 911 N. University, Geisert 0614, Peoria, 
IL 61606. Please include an SASE when re- 
questing a reply. 



But for each successfully completed wave 
— without a missed shot — you gain one 
Super Saver. Super Savers can be very 
helpful since they destroy all onscreen ali- 
ens. To activate a Super Saver, press the 
second button on your two-button joystick. 

Megatank Modifications 

If you don "t have a two-button joystick. 



you can alter Megatank so you can use the 
space bar in place of the second joystick 
button. To do this, replace Line 260 with 

Z60 HPUT(A1.179)-(A1+36.191).1.P 
SET: A$-INKEY$: IF A$<>"" THEN G 
OSUB 560 

Megatank is written for use with an RGB 





110 ..250 900 .......... 159 1420 174 

220 153 950 96 1530 162 

300 209 1020 25 1640 5 

410 .......... 154 1060........ 237 1710 216 

470 .......... 189 1120 68 1830 ........ 207 

570 ...... 26 1170 76 1910 ........ 244 

660 176 1230 113 END 22 



780 
850 



„82 1290 240 

146 1330 ........ 218 



The Listing: MEGATANK 

1 'MEGATANK 

2 'BY MARSHALL WEISENBURGER 

3 'COPYRIGHT (C) AUGUST 1991 

4 "BY FALSOFT. INC. 

5 'RAINBOW MAGAZINE 

10 ***************************** 

20 '* MEGA TANK * 
30 ■* BY 



•* MARSHALL WEISENBURGER * 
•* 8/20/87 * 

***************************** 

ON BRK GOTO 1970 
80 POKE 65497. 0: P$="01L225CDEFG" 
90 GOTO830 
100 •***MAINL00P*** 



40 
50 
60 
70 
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110 A-JOYSTK(0) 

120 lFA<15THENAl-Al-8 

130 IFA>53THENAl-Al+8 

140 IFAK0THEN A1=0:HPUT( Al . 179) 

-(A1+36.191).3:A1-198 

150 IFA1H99THEN A1-199:HPUT( Al . 

179)-(A1+36.191).3:A1=0 

160 Y-Y+R:IFY>135THENGOSUB640:GO 

SUB600 

170 D-D+.2:E-SIN(D):IFE>0THEN X- 

X+I ELSE X-X-I 

180 IFX=322THEN210 

190 IFX>207THENX-207 

200 IFX<0THENX=0 

210 H-H+1:IFH-1THENPALETTE13.W:P 

ALETTE14.V 

220 IFH-2THENPALETTE14.W:PALETTE 

15. V 

230 IFH-3THENPALETTE15.W:PALETTE 

13. V:H-0 

240 HPUT(X.Y)-(X+28.Y+17).U.PSET 

:IFG=1THEN260 

250 HPUT(X1.Y)-(X1+28.Y+17).U.PS 

ET 

260 HPUT(A1.179)-(A1+36.191).1.P 

SET:IFBUTTON(1)=1THENGOSUB560 

270 IFBUTTON(0)-0THEN110 

280 SOUND230.1:B-A1+19:HCOLOR3.0 

:HLINE (B.155)-(B.0).PSET:HCOLOR 

0.0: HLINE (B.155)-(B.0).PSET 

290 IF X+14>B-14 AND X+14<B+14 T 

HEN 320 ELSE IF X1+14>B-14 AND X 

1+14<B+14 THEN 380 

300 M2=1:M1-M1+1:HCOLOR0.0:HLINE 

(249.71)- (279. 79 ).PSET.BF:HCOLOR 

4.0:HPRINT(31.9).M1:IF MK5THEN1 



10 

310 M1=0:SOUND1.2:SOUND1.2:SOUND 

1.2:HCOLOR0.0:HLINE(249.71)-(279 

,79).PSET.BF:HCOLOR4.0:HPRINT(31 

,9).M1:GOSUB670:GOTO110 

320 GOSUB750 

330 HCOLOR0.0:HLINE(X.Y)-(X+28.Y 

+17).PSET.BF:X=322:I=0:J=J+1 

340 S=S+T:GOSUB440 

350 IFJ-1ANDG-1THENGOSUB600:GOTO 

100 

360 IFJ=2THENGOSUB600:GOTO100 

370 GOTO110 

380 IFG-1THEN110 

390 GOSUB760 

400 S=S+T:GOSUB440 

410 HCOLOR0.0:HLINE(Xl.Y)-(Xl+28 

,Y+17).PSET.BF:X1=329:J-J+1 

420 IFJ=2THENGOSUB600:GOTO100 

430 GOTO110 

440 '*** SCORE *** 

450 IF S=1000THEN HCOLOR0.0: HLIN 

E(X.Y)-(X+28.Y+17).PSET.BF:HLINE 

(Xl.Y)-(Xl+28.Y+17).PSET.BF:GOSU 

B600:GOSUB800:R=4:T-250:U-5:V-38 

:W-0:Il-3:M2-0 

460 IF S=4000THEN HCOLOR0.0: HLIN 

E(X.Y)-(X+28.Y+17).PSET.BF:HLINE 

(X1.Y)-(X1+28.Y+17).PSET.BF:G0SU 

B600 : GOSUB800 : R=6 : T-500 : U-6 : V-36 

:W-0:Il-4:M2-0 

470 IF S=12000THEN HCOLOR0.0:HLI 

NE(X.Y)-(X+28.Y+17).PSET.BF:HLIN 

E(X1.Y)-(X1+28.Y+17).PSET.BF:G0S 

UB600 : GOSUB800 : R=7 : T=1000 : 11=7 : V= 

36:W=63:I1=5:M2=0 



monitor. To alter it for use with a color 
composite monitor or TV, make the follow- 
ing changes: 

1) Change the values of Variable V as shown 
in this table: 



Line# 


Value 


Change to 


450 


38 


22 


460 


36 


6 


470 


36 


6 


480 


55 


51 


1920 


36 


6 



2) In Line 480, change W-32 to W-7. 

3) Replace lines 1640, I960 and 1970 with the 
following: 

1640 PALETTE 0.0: PALETTE 1.13: 
PALETTE 2.12: PALETTE 3.23: PALE 
TTE 4.33: PALETTE 5.33: PALETTE 
6.6: PALETTE 7.51: PALETTE 8.9: 
PALETTE 9.0: PALETTE 10.51: PALE 
TTE 11.32: PALETTE 12.0: PALETTE 
13.9: PALETTE 14.0: PALETTE 15.0 

1960 DATA CHOPPERS. 100. 4. 6, 0.BLA 
DES.250.5.22.0.BATS.500.6.6.0.SA 
UCERS. 1000. 7. 6. 63. FIREBALLS. 1500 
.8.51.7 

1970 CMP: POKE 65496.0 Q 



^ 



^ 



P.O. Box 733 
Maple Valley, WA 98038 



U.S.ORDERDESK: 
'800) 23^2409 




SM£ 



INTL& TECHNICAL: 
(206) 432-1814 

Z 



Burke & Burke Summer Software Sale! 

It's August, unci that means that it V lime lor the Burked Burke I 99TymtTnier SoliwareSale. 
This month only, take $5. OO oil the advertised price ol each Burke A- Burke soli ware only 
product} ou order! Orders must be postmarked pii or to September 1. 1991 order by phone lor 
e venlastersen ice. 

OS9 Software (* >= 256K; ** >= 51 2K required): 

WORLD CLASS CHESS' - Use your Tandy Cyrus Chess cartridge under OS9 L2 $29.95 

FILE SYSTEM REPACK 1.1 -- Popular disk defragmented NEW VERSION! $29.95 

FILE RECOVERY SYSTEM - helps rebuild crashed disks $24.95 

R. S. B.* - Real Disk BASIC for Level 2 (BASIC ROM required). $39.95 

EZGEN 1.09 - OS9 bootfile editor $19.95 

CYBERVOICE (Software only)" -- Run your S/S SuperVoice w/ OS9! $24.95 

PERTASCII" -- Multi-user scrambled letter word game. $19.95 

WILD & MV - Wildcard & move directory entry utilities. $19.95 

BASIC Software (* >= 256K; ** >= 51 2K required): 

HYPER-I/O -- 16K Hard disk / big floppy BASIC. Specify B&B or DISTO hard disk $29.95 

DAGGORPATCH -- Disk patch for Dungeons of Daggorath. $ 9.95 

HYPER-K> comes on floppy disk & is EFROMable. HYPER-I O alio*? huge floppy and Itard disk 
directories, with good ML compatibility. We recommend HYPER-I O for HPS A BASIC use, but it 
may be incompauble with some of your coiwneivial ML S-W. 




Affordable Color Computer Hardware: 

CYBERVOICE -- Speech Synthesizer w/ OS9 software. 

COCO XT -- Adapts PC hard drives to CoCo. OS9 S/W included. 

COCO XT-RTC - CoCo XT, with battery backed real-time clock. 

XT- ROM -- Boots OS9 from B&B hard disk automatically. 

4 Hard disk cable set (Extra long -- standard cables are 2 or shorter) 



Master 
Card 



$99.95 
S69.95 
$99.95 
$19.95 
$17.50 



New E go 
Killer! 

World Class Chess lets 
you use your Tandy 
Cyrus Chess cartridge 
under OS9 Level 2. 
We ve added mouse, 
disk, and windows 
support. Looks great, 
and plays a mean game 
of chess! Only $29.95. 
(Cyms Ciiess tMrtridge 
amilable from TANDY 
Consumer Mail. P/N 
JX-J064. SS9.9M 

WA RESIDENTS ADD 

8.2% SALES TAX. 
U.S. CODsadd Si.^5. 

Mill. U.S. shipping 
$4.00. Mill, lo Canada 
$5.00. Please allow 2 

weeks for delivery. 

Overnight or 2nd- day 

available lor in-slock 

items. Software upgrades 

$5.00 each w. receipt, 
including U.S. shipping. 
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480 IF S-30000THEN HCOLOR0,0:HLI 

NE(X.Y)-(X+28.Y+17).PSET.8F:HLIN 

E(X1.Y)-(X1+28.Y+17).PSET.BF:G0S 

UB600:GOSUB800:R-8:T=1500:U-8:V- 

55:W-32:Il-6:M2-0 

490 HCOLOR0.0:HLINE(254.23)-(316 

.30).PSET.BF 

500 HCOLOR4.0:HPRINT(31.3).S 

510 IF HS>S THEN RETURN 

520 HS-S 

530 HCOLOR0.0:HLINE(254.47)-(316 

.54).PSET.BF 

540 HCOLOR4.0:HPRINT(31.6).HS 

550 RETURN 

560 '*** SUPER SAVER TEST *** 

570 IF Z-0 THEN RETURN 

580 Z-2-l:HCOLOR0.0:HLINE(249.10 

3)-(279.11D.PSET.BF:HCOLOR4.0:H 

PRINT(31.13).Z 

590 PLAY "L4O4CEG":HCOLOR0.0:HLI 

NE(X.Y)-(X+28,Y+17).PSET.BF:HLIN 

E(X1,Y)-(X1+28.Y+17),PSET.BF 

600 •*** RANDOM SHIP POSITION ** 

* 

610 I-I1:J-0:G-RND(2):X1=RND(207 

):X=RND(207):Y-0:D-0 

620 IF X-XK40THEN610 

630 RETURN 

640 '*** ENEMY LANDS *** 

650 SOUNDl.l:SOUNDl.l:SOUNDl.l:S 

OUND1.1 

660 HCOLOR0.0:HLINE(X.Y)-(X+28.Y 

+17).PSET.BF:HLINE(Xl.Y)-(Xl+28. 

Y+17).PSET.BF 

670 Q-Q-1:IFQ-4THEN N-278:0-168 

680 IFQ-3THEN N-239 

690 IFQ-2THEN N-278:0-151 

700 IFQ-1THEN N-239 

710 IFQ-0THEN1610 

720 HCOLOR0.0:HLINE(N.O)-(N+36.O 

+12),PSET.BF 

730 RETURN 

740 •*** ENEMY EXPLOSION *** 

750 HPUT(X.Y)-(X+28.Y+17).9:G0T0 

770 

760 HPUT(X1.Y)-(X1+28.Y+17).9 

770 PLAY P$:PALETTE9.32:PLAY PJ : 

PALETTE12.38:PLAY P$ : PALETTE12. 

:PLAY P$:PALETTE9.0 

780 RETURN 

790 '*** BONUS SUPER ZAPPER CHEC 

K *** 

800 IF M2-1 THEN RETURN 

810 Z-Z+l : HCOLOR0 . : HL I NE{ 249 . 1 

3)-(279.111).PSET.BF:HCOLOR4.0:H 

PRINTC31 .13) .Z 

820 RETURN 

830 , ***BUFFERS AND COLORS*** 

840 HSCREEN2:HBUFF1,247:HBUFF2.2 

47:HBUFF3.247:HBUFF4.270:HBUFF5. 

270:HBUFF6.270:HBUFF7.270:HBUFF8 

,270:HBUFF9.270 

850 PALETTE0.0:PALETTE1.0:PALETT 

E2.0:PALETTE3.0:PALETTE4.0:PALET 

TE5.0:PALETTE6.0:PALETTE7.0:PALE 

TTE8.0:PALETTE9.0:PALETTE10.0:PA 

LETTE11.0:PALETTE12.0:PALETTE13. 

0:PALETTE14.0:PALETTE15.0 

860 HCLS0 

870 •*** TANK /W GREY BACKGROUND 

880 HCOLOR11.0:HLINE(20.10)-(57. 

22).PSET.BF 

890 HCOLOR 1.0:HLINE(28.19)-(49. 

20).PSET.BF:HLINE(30.17)-(31.22) 

,PSET.BF:HLINE(34.17)-(35.22).PS 

ET.BF:HLINE(38.17)-(39.22).PSET. 

BF:HLINE(42.17)-(43.22).PSET.BF: 

HLINE(46.17)-(47.22).PSET.BF 



900 HCOLOR8.0:HLINE(29.16)-(29.1 

8).PSET:HLINE(30.15)-(47.16).PSE 

T.BF:HLINE(32.17)-(33.18).PSET.B 

F:HLINE(36.17)-(37.18).PSET.BF:H 

LINE(40.17)-(41.18).PSET.BF:HLIN 

E(44.17)-(45.18).PSET.BF:HLINE(4 

8.16)-(48.18).PSET 

910 HCOLOR6.0:HLINE(36.14)-(41.1 

4).PSET:HLINE(38.10)-(39.13).PSE 

T.B 

920 HGET(20.10)-(56.22).l 

930 '*** TANK /W BLACK BACKGROUN 

*** 

940 HCOLOR1.0:HLINE(68.19)-(89.2 

0).PSET.BF:HLINE(70.17)-(71.22). 

PSET.BF:HLINE(74.17)-(75.22).PSE 

T.BF:HLINE(78. 17 )-( 79.22). PSET.B 

F:HLINE(82.17)-(83.22).PSET.BF:H 

LINE(86.17)-(87.22).PSET.BF 

950 HCOLOR8.0:HLINE(69.16)-(69.1 

8).PSET:HLINE(70.15)-(87.16).PSE 

T.BF:HLINE(72.17)-(73. 18). PSET.B 

F:HLINE(76.17)-(77.18).PSET.BF:H 

LINE(80.17)-(81.18).PSET.BF:HLIN 

E(84.17)-(85.18).PSET.BF:HLINE(8 

8.16)-(88.18).PSET 

960 HCOLOR6.0:HLINE(76.14)-(81.1 

4).PSET:HLINE(78.10)-(79.13).PSE 

T.B 

970 HGET(60.10)-(96.22).2 

980 •*** BLANK TANK *** 

990 HCOLOR11.0:HLINE(200.10)-(23 

7.22).PSET.BF 

1000 HGET(200.10)-(236.22),3 

1010 •*** HELICOPTER DRAWING *** 

1020 HCOLOR4.0:HLINE(248.6)-(248 

.7).PSET:HLINE(244.8)-(251.8).PS 

ET:HLINE(243.9)-(252.9).PSET:HLI 

NE(242.10)-(263.10).PSET:HLINE(2 

41.11) -(263. 11 ).PSET:HLINE(241.1 

2)-(253.12).PSET:HLINE(242.13)-( 

252.13).PSET:HLINE(243.14)-(251. 

14J.PSET 

1030 HCOLOR1.0:HLINE(245.15)-(24 

5.16).PSET:HLINE(249.15)-(249.16 

).PSET:HLINE(241.15)-(242.17).PS 

ET:HLINE(242.17)-(257.17).PSET:H 

LINE( 245.9) -(246. 11 ). PSET.B :HLIN 

E(244.10)-(244.U).PSET:HSET(243 

.11.1) 

1040 HCOLOR13.0:HLINE(241.5)-(25 

5.5). PSET:HLINE(266. 7) -(266.11). 

PSET 

1050 HCOLOR14.0:HLINE(250.3)-(24 

6.7).PSET:HLINE(264.8)-(268.10). 

PSET 

1060 HCOLOR15.0:HLINE(246.3)-(25 

0.7),PSET:HLINE(264.10)-(268.8). 

PSET 

1070 HGET(240.0)-(268.17).4 

1080 '*** GIANT FLY DRAWING *** 

1090 HCOLOR1.0:HSET(281.8.1):HSE 

T( 288.8. 1):HLINE( 282.7)- (282.9). 

PSET:HLINE(287.7)-(287.9).PSET:H 

LINE(283.6)-(283.10).PSET:HLINE( 

286.6)-(286.10).PSET:HLINE(284.6 

) -(285. 15). PSET.B :HLINE( 282. 13) - 

(287.14).PSET.B:HLINE(283.15)-(2 

83. 17). PSET 

1100 HLINE(286.15)-(286.17).PSET 

1110 HSET(283.14.6):HSET(286.14. 

6) 

1120 HCOLOR13.0:HLINE(287.11)-(2 

93.15).PSET:HLINE(287.11)-(293.1 

4).PSET:HLINE(287.11)-(293.13).P 

SET:HLINE(282.11)-(275.15).PSET: 

HLINE(282.11)-(275.14).PSET:HLIN 

E< 282. 11) -(275, 13). PSET 

1130 HCOLOR14.0:HLINE(287.11)-(2 



93.12).PSET:HLINE(287.11)-(293.1 

1).PSET:HLINE(287.11)-(293.10).P 

SET:HLINE(282.11)-(275.12).PSET: 

HLINE(282.11)-(275.11).PSET:HLIN 

E(282.11)-(275.10).PSET 

1140 HCOLOR15.0:HLINE(287.11)-(2 

93.9).PSET:HLINE(287.11)-(293.8) 

,PSET:HLINE(287.11)-(293.7).PSET 

:HLINE(282. ID- (275.9). PSET:HLIN 

E(282.11)-(275.8).PSET:HLINE(282 

,11)-(275.7).PSET 

1150 HGET(270.0)-(298.17),6 

1160 '*** FIRE BALL DRAWING *** 

1170 HCIRCLEC14. 112) .1.13:HCIRCL 

E(14.112).4.13:HCIRCLE(14.112).2 

,14:HCIRCLE(14.112).5.14:HCIRCLE 

(14. 112). 3. 15 

1180 HGET(0.100)-(28.117).8 

1190 '*** FLYING SAUCER DRAWING 

*** 

1200 HCOLOR2.0:HLINE(109.8)-(120 

,8).PSET:HLINE(108.9)-(121.9).PS 

ET:HLINE(107.10)-(122.10).PSET 

1210 HCOLOR4.0:HLINE(106.11)-(12 

3.12).PSET.B:HLINE(106.16)-(123. 

17). PSET.B 

1220 HCOLOR13.0:HLINE(106.13)-(1 

07.15).PSET.B:HLINE(112.13)-(113 

. 15). PSET. B:HLINE( 118. 13) -(119.1 

5). PSET.B 

1230 HCOLOR14.0:HLINE(108.13)-(1 

09.15).PSET.B:HLINE(114.13)-(115 

. 15 ). PSET. B:HLINE( 120. 13) -(121.1 

5). PSET.B 

1240 HCOLOR15.0:HLINE(110.13)-(1 

11.15).PSET.B:HLINE(116.13)-(117 

. 15 ). PSET. B:HLINE( 122. 13) -(123.1 

5). PSET.B 

1250 HGET (100.0)-(128.17),7 

1260 ■*** EXPLOSION DRAWING *** 

1270 HCOLOR7.0:HLINE(148.8)-(157 

.9).PSET.B:HLINE(152.5)-(153.12) 

.PSET.B 

1280 HCOLOR9.0:HLINE(150.3)-(155 

,4).PSET.BF:HLINE(146.6)-(147.11 

).PSET.BF:HLINE(150.13)-(155.14) 

.PSET.BF:HLINE(158.6)-(159.11).P 

SET.BF 

1290 HLINE(148.5)-(151. 7). PSET.B 

F:HLINE(148.10)-(151.12).PSET.BF 

:HLINE(154.10)-(157.12).PSET.BF: 

HLINE(154.5)-(157.7).PSET.BF 

1300 HSET(149.4.9):HSET(149.13.9 

):HSET(156.4.9):HSET(156.13.9) 

1310 HCOLOR12.0:HLINE(142.8)-(14 

2.9).PSET:HLINE(143.6)-(143.11). 

PSET:HLINE(144.4)-(145.13).PSET. 

BF :HLINE( 146.3) -(147. 5). PSET. BF: 

HLINE(146.12)-(147.14).PSET.BF:H 

LINE(148.2)-(149.3).PSET.B:HLINE 

(148.14)-(149.15).PSET.B:HSET(14 

8.4.12) :HSET(148.13.12) 

1320 HLINE(152.0)-(153.0).PSET:H 

LI NE( 150.1) -(155. 2). PSET.B :HLINE 

(150.15)-(155.16).PSET.B:HLINE(1 

52, 17)- (153.18) .PSET 

1330 HLINE(154.1)-(155. 2). PSET.B 

:HLINE(156.14)-(157.14).PSET.B:H 

LINE( 156.2) -(157.3). PSET. B:HLINE 

(155.13)-(156.14).PSET.B:HLINE(1 

58.3) -(159. 5). PSET. B:HLINE( 158.1 

2)-(159.14).PSET.B:HLINE(160.4)- 

( 161. 13). PSET. B:HLINE( 162.6) -(16 

2. 11). PSET 

1340 HLINE(163.8)-(163.9).PSET 

1350 HGET(140.0)-(168.17).9 

1360 '*** ROTATING BLADES DRAWIN 

G *** 

1370 HCOLOR13.0:HLINE(184.5)-(18 
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4.16) ,PSET:HLINE( 185.5) -(183.16) 

.PSET:HLINE(183.5)-(185.16).PSET 

1380 HCOLOR14.0:HLINE(176.6)-(19 

3.16).PSET:HLINE(176.7)-(193.15) 

,PSET:HLINE( 193. 17) -( 176.5). PSET 

1390 HCOLOR15.0:HLINE(176.14)-(1 

92.8).PSET:HLINE(175.13)-(192.9) 

.PSET:HLINE(175.15)-(192.7).PSET 

1400 HGET(170.0)-(198.17),5 

1410 '*** SETUP FOR SCREEN *** 

1420 HCLS 

1430 HCOLOR2.0:HLINE(317.0)-(236 

.192). PSET. B 

1440 HCOLOR6.0:HPRINT(31.2)."SCO 

RE" 

1450 HCOLOR6.0:HPRINT(31.5)."HI 

SCORE" 

1460 HPRINT(30.17)."NO. SHIPS" 

1470 HPRINTOl, 8). "MISSES" 

1480 HCOLOR6.0:HPRINT(31.11)."SU 

PER" 

1490 HPRINTOl. 12). "SAVERS" 

1500 HCOLOR11.0:L-175 

1510 FOR K=0 TO 235 

1520 N-RND(2):IF N=l THEN L-L+l 

ELSE L-L-l 

1530 IF L>178 THEN L-178 

1540 IF L<156 THEN L-156 

1550 HSET(K.L) 

1560 NEXT K 

1570 HLINE(235.L)-(235. 191). PSET 

1580 HPAINT (100. 189). 11. 11 

1590 GOTO1640 

1600 "*** END OF GAME *** 

1610 HPUT(A1.179)-(A1+36.191).3, 

PSET 



1620 HCOLOR0.0:HLINE(X.Y)-(X+28. 

Y+17).PSET.BF:HLINE(Xl.Y)-(Xl+28 

.Y+17).PSET.BF 

1630 ' *** START UP *** 

1640 PALETTE0.0:PALETTE1.8:PALET 

TE2.9:PALETTE3.47:PALETTE4.18:PA 

LETTE5.18:PALETTE6.36:PALETTE7.5 

5 :PALETTE8. 40 :PALETTE9.0: PALETTE 

10.55:PALETTE11.56:PALETTE12.0:P 

ALETTE13.40:PALETTE14.0:PALETTE1 

5.0 

1650 PLAY "T3L6O2B-O3L12CP90CP90 

CP90CP90CP90CL8E-P90E-P90L12E-P9 

0E-CP90CP90CP90CP90CP50CL8O2B-P9 

0B-P90L12B-P90B-O3CP90CP90CP90CP 

90CP90CL6E-FO2B-O3CO2L55BAGFEDCO 

1BAGFEDC" 

1660 HCOLOR5.0:HPRINT( 10.1). "MEG 

A TANK":HPRINT(3. 17). "PRESS ANY 

KEY TO BEGIN" 

1670 H-0:RESTORE 

1680 FOR F-0TO4 

1690 HCOLOR0.0:HLINE(7.103)-(87. 

93).PSET.BF:HLINE(167.103)-(220. 

93). PSET. BF 

1700 READ M..M.U.V.W 

1710 HCOLOR6.0:HPRINT(1.12).M$ 

1720 HPRINT(22.12).M 

1730 HPUT(110.86)-(138.103).U 

1740 FOR PP-1T025 

1750 FOR XY-1TO40:NEXTXY 

1760 H-H+1:IFH-1THENPALETTE13.W: 

PALETTE14.V 

1770 IFH-2THENPALETTE14.W:PALETT 

E15.V 

1780 IFH-3THENPALETTE15.W:PALETT 



E13.V:H-0 

1790 P=RND(63):PALETTE5.P 

1800 A$-INKEY$: IF A$O""THENG0T0 

1840 

1810 NEXT PP 

1820 NEXT F 

1830 GOTO1670 

1840 HCOLOR0.0:HLINE(77.6)-(152. 

15). PSET. BF 

1850 HLINE(7.103)-(87.93).PSET.B 

F 

1860 HLINE(110.86)-(138.104).PSE 
T.BF 

1870 HLINE(167.103)-(220.93).PSE 
T.BF 

1880 HLINE(15.132)-(210.146).PSE 

T.BF 

1890 HCOLOR0.0:HLINE(249.103)-(2 

79.111).PSET.BF:HLINE(249,71)-(2 

79. 79). PSET. BF 

1900 M1-0:HCOLOR4.0:HPRINT(31.9) 

.Ml 

1910 Z-2:HPRINT(31.13).Z 

1920 S-0:A1-100:J-0:Q-5:R-3:T-10 

0:U-4:V-36:W-0:Il-0 

1930 HPUT(239.151)-(275.163).2.P 

SET:HPUT(239.168)-(275.180).2.PS 

ET:HPUT(278.151)-(314.163).2.PSE 

T:HPUT(278.168)-(314.180).2.PSET 

1940 GOSUB440:GOSUB600 

1950 GOTO100 

1960 DATA CHOPPERS. 100. 4. 36. 0.BL 

ADES. 250. 5. 38.0. BATS. 500. 6. 36.0. 

SAUCERS. 1000. 7. 36. 63. FIREBALLS, 1 

500.8.55.32 

1970 RGB:POKE 65496.0 



JWT Enterprises 



Attention! MM1 programmers wanted. Many prospective 
projects already planneiJ. Write for more taformatton, :;;: 



Optimize Utility Set 1 NEW! 

Optimize your disks by eliminating fragmented files and compacting your 
directories for faster Hie access. Also Includes a utility to assess file fragmenta- 
tion and directory fragmentation as well as excess directory padding. 

Optimize Utility Set 1 $29.95 Foreign postage, add S3.00 



N.ne-TifTies; Each issue contains: 9 helpful and useful prog-ams to help 
build your OS-9 library * Instructions, examples, and samples of IJasic09 
procedures and subroutines to help with your own programs and your 
understanding of Baskr09 ■ C programs and programming examples ■ Hints, 
Help columns, and Informative articles to advance your knowledge of OS-9 * 
Supplied totally of 5.25" disk ' Hound manual sent to each new subscriber for 
help In getting Nine Times up and running, as well as tips on using 11 with a ram 
disk or hard disk " All graphic /J ova tick Interface for case of use. 

1-Year Subs, $34.95 Foreign postage, add $8.00 



Hack Issues: Available for the May 1989 through May 199/ Issues. Please 
write for Information on Back Issue contents. 

Back Issue, ea. $7-00 Foreign postage, add $2.00 ea. 



Magazine Source: Due to many Inquiries, the source code for the 
magazine graphic shell is being provided as an informational tool. Included is 
the actual Daslc09 source code and compiled modules on disk, as well as 
documentation and a printed copy of the source code. 



Source, $25.95 



Foreign postage, add $5.00 



check or money order to: 



Technical Assistant* 
(2161-75&-7694 






Foretgn postage excludes US. Territories and Canada, New rates ejf. Mau3l. 1991 

To order, please send us. JWT Enterprises 
5755 Lockwood Blvd. 
Youngsiown. OH 44512 RAINBOW 

All fttiktU far Umt OS-9 stM 

Sorry, no C.O.D.a or credit card*; ForO*n A Canadian order*. plea** u»e U.S, amomav oidar*. 
U.S. checks, allow 3-4 weeks for receipt of first Issue/back Issue. 

CgpytliM (CI 1MI Ol-l i. m tr.lw.n ■( Micro— r« JvH— s Corp. ama) ""util.. Inc. 
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Kyum-Cai: to be Ninja (OS-9 Version) is the culmination ol a project started almost a year 
ago. The talents of Gfen ft Dahlg/en (RS-DOS game writer lor Sundog Systems), Kevin 
Darling (a legend lor his work in OS-9), and Hdie Kuns (author ot KBCom) have been 
pooled to create a masterpiece ol game software under the OS-9 operating system. Fast 
manial arts action with outstanding graphics, great digitized sound effects, and incredible 
animation are featured in this arcade game, all in the OS-9 environment. 

Always wanted to play the great CoCo 3 games but didn't want to sacrifice your OS-9 
features? Multitask white playing Kyum-Cai. Hove multiple Kyum-Cai's running in 
memory. Don't worry about switching windows, because Kyum-Cai: OS-9 auto-pauses, 
to wait tor your return. 

Put siripry, this is an unprecedented piece of software lor the CoCo: a landmark game sure to be 
a major part of the Cokx Computer history. Dont miss out on this game! ffOQQC 
Req. 51 2K CoCo III with OS-9 Level 2 and joystick. $£.Js.yJ 



VISA, Mastercard, Money Order, and 
COD (USA only, please) accepted. All 
foreign orders must be sent In US cur- 
rency Money Orders. Include S2 . SO for 
shipping In USA and Canada, $5.00 
Foreign. S3. 00 extra for COD orders. 
VA residents please add 6% sales tax. 
Dealer Inquiries welcome. Authors: we're 
looking for new software! 




P.O. Box 766 

Manassas, VA 22111 

(703) 330-8989 
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Down to Business 



THE RAINBOW Staff 



/ recently took my CoCo 3 and dual 
disk drive to work and use it to track 
inventory and maintain accounts 
receivable. The programs I am using are 
Data Master, Dynacalc and DynaStar. / 
realize I need a hard drive to speed my 
work, hut right now I wonder if there are 
any business programs out therefor Level 
II on the CoCo 3. What software do other 
people use? 

R. Bryan Pratt 

A-L Machine & Assoc. 

P.O. Box 21222 

Roanoke, VA 24018 

We know of no "business" software 
designed specifically foroS- ( > Level II 
on the CoCo 3. However, as you have 
found, most general packages work Fine for 
most small-business applications. Basically 
all you need is a word processor, a spread- 
sheet and a database. 

We did a quick check of The OS-9 Source- 
hook from Microware (get a copy for your- 
self — you'll see a lot of things you might 
not otherwise expect). Three companies 
listed that carry business software for OS-9/ 
6809 are: 

South East Media 
5900 Cassandra Smith Rd. 
Hi.xson. TN 37343 
1615) 842-4600 

Specialty Electronics. Inc. 
909 North Cleveland 
Enid, OK 73703 
1405) 233-1632 

Trend Computer Systems 
828-A Dodsworth Ave. 
Covina.CA 91724 
1818)331-4114 



Yes. you'll find a hard drive more than 
helpful when working with OS-9. In the 
meantime, perhaps other readers will let 
you know what software they use for busi- 
ness purposes. 

A Graphical Point of View 

A friend gave me several Disk BASIC 
disks filled with graphics files. The 
problem is that I use OS-9 most of the 
I can transfer the files to OS-9 disks, 
have no way to look at them under 
. Any suggestions? 

Marty Goldstein 
Chicago 

Thanks to Tim Kientzle. we have an 
excellent solution. Tim has written a 
program called View that lets you 
look at graphics images in most any CoCo 
format or the GIF format. The latest version 
of this OS-9 Level ll shareware program is 
4.3. and it is available in the OS9 Online da- 
tabase on Delphi. The graphics files must 
be stored on OS-9-formatted disks. For those 
who don't have access to Delphi, we con- 
tacted Tim and he gave us permission to 
supply View 4.3 on this month's RAINBOW 
ON DISK. We'll include a few graphics 
samples from CoCo Gallery, too. You can 
get many more images, though, from the 
Delphi CoCo and OS-9 Online SIGS. 

Getting Into Multi-Vue & BASIC09 
/ have a couple of problems I hope 
you can solve for me. First, I am 
having trouble adjusting my recently 
purchased copy of Multi-Vue for SI2K. 
Everything goes fine until Step 4 on Page I - 
6 of the Multi-Vue manual. Then the proc- 
ess fails. What am I doing wrong? The 
second problem I am having is getting BA- 
SIC09 running. Most frustrating of all is that 



I did it once. The manual instructs me to 
simply enter basi c09. but this doesn't work. 
Help! 

Kris Petterson 

Maidstone. Saskatchewan 

Canada 

We can help. The Multi-Vue manual 
has a couple of blurbs that make it 
difficult for beginning users. Step 4 
on Page 1-6 of that manual should read 

edit /d0/sys/env.f1le 

Note the space after edi t. The line above 
is a two-part command line. The first part, 
edi t, tells the computer you want to edit a 
file. The rest of the line is the pathlist, your 
way of telling OS-9 the name of the file you 
want to edit, along with the drive and direc- 
tory where that file can be found. The space 
between the two parts is required. It's in the 
manual, too. but the typestyle makes it hard 
to see. The real goof is that Tandy mis- 
printed the lowercase letter o for the num- 
ber in the first part of the pathlist. We 
don't know too many people who have a 
Drive /do. 

Another error in the Multi-Vue manual 
appears on Page 1-7, also in Step 4. Since 
Drive is a device, there should be a slash 
in front of the pathlist. Step 4 should read 

chx /dO/cmds 

BASIC09 is located in the CMDS directory 
of the Boot/Config/BASlC()9 disk included 
with the OS-9 Level ll package. To get it 
running, put a backup of that disk in Drive 
/dO and enter 

chd /dO 

chx /dO/cmds 
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Without T&D your Coco is a Barebone System 



ISSUE 195. MAY 1990 
DREAMIIMEADV. 
XT/AT SYSTEMS 
IHB1.F.QUI7.2 
16 FLAGS 
FRACTIONS 
SOLTTA1RE PUZZLE 4 
5I2KRAMDRIVF.3 
FOOD FACTORY .1 
WHO PARI' 2 

mmm 



ISSUE (101, NOV. 1990 

GOSSIP 

COST ESTIMATOR 

SALO INVENTORY 

PERSONAL STATS 

ALA1X - 3 

DEATH HUNT 

5I2KRAMCAT.3 

Bingo Culler 3 

DUCK HUNT 

mmaiM 



ISSUE «96. JUNE 1990 
ENTREPENEL'R 
DR.PHRED! 
PRINTER FONT CODES 
BIBLE QUESTIONS PT.3 
CALO ADVENTURE 
FORM MAKER 
DRAGON ESCAPE 
PI.ANE EXPLORER 
WHO PART 3 
MISMtTill 



ISSUE »97, JULY 1990 
FCC EXAM HELPER 
EMPLOYEE SCHEDULE 
FLYING SAUCER ADV. 
SPEECH AID 
MOWER MADNESS 
JET TRIVIA 
INSTANT CALENDAR 
WORLD MASTER 3 
AIR WAR.' 

nrnrcnra 



ISSUE »98, AUGUST 1990 

FLIPPY TUTORIAL 

RECIPE/MF.AIVGROCERY 

DUNGEON MAZE 

SNOW SKI 

HOT LOAD 

SHIP WAR 

ERROR TRAP 

SPACE WAR 3 

MAZE MASTER 3 



ISSUE »99, SEPT.. 1990 
IDEA TREE 

MASTERS 1ABYRINTH 
MORSE CODE 
TELESALE CONTACTS 
PROMISED LAND QUIZ 
PROPOSAL WRITER 
ALPHABET SCRAMBLE 3 
MAGIC PUMPKIN 
DR. WHO' PART 4 



ISSUE »I02, DEC. 1990 
REAL ESTATE ANALYSIS 
COCO PAYROLL 
DR. STRANGE ADV. 
TANNING SALON 
TREASURE HUNT 
RIVERBOAT BLACKJACK 
TURTLE RACE 3 
SUPER SCREEN DUMP 
KEYBOA RD REMAP 

H3533 



ISSUE* 103, JAN. 1991 

FAMOUS PEOPLE 

LABRYNTH 3 

DATA ANALYSIS 

MEDICAL FILE 

WORD GENERATOR 3 

PRIVATE EYE ADVENTURE-RYPTOGRAM 3 

HEARTS 3 GHOST HUNTER 

COCOJOKESTER HI-COPY 

mm m' 



ISSUE «I04. FEB. 1991 
WINE CELLAR 
BOMB RUN 
SPUT/APPF.ND FILES 
INITIALIZE 35* 
PIG OUT 



ISSUE »I05. MARCH 1991 

ROBOCROOK 

CREDrrCARDACCT. 

ABC'S ' 123'S 

ANTIQUE CO! LECTOR 

FOUR SCORE 

QUICK TAX 

HI-LOAD 

QUAD EDUCATION 3 

SMI }<l 01 LSI 3 



ISSUE 11100, OCT. 1990 
ZOT MIND GAME 
SUPER TEXT EDITOR 
SUPER TEXT FORMATTER 
TURTLE SEARCH 3 
COAST TO COAST 
EASY BASIC 3 
DRAGON ADVENTURE 
WRITE OUT UTILITY 

1 "ionium 



ISSUE » 106. APRIL, 1991 
STOCK PORTFOUO 
THE BARREL 
SERVICE MANAGER 
CROSUMS PUZZLE 
DIAMOND QUEST 
JOB SKILLS 
JOB APPLICANT 
ELDL'S 3 
RF.AK-1N3 PARI 2 
ISTO! 



BRF.AK-P 

isam 



Last 12 issues shown here! 



RAINBOW 

CF.RTIHCATI0N 
SEAL 



Tom Mix arcade aames. 




Don't waste a minute! 



RAINBOW 



CERTIFICATION 
SEAL 



Check out all our public domain issues, 




Music 1-7 

Ml - 8l'lililics& 8 Songs 

M2 - 17 Musico Hies 

Ml- 16 Music* Bin 

M4- 16 Musica Piles 

M5 - 25 Orchestra Files 

M6 - 23 . Bin Files ready In play 

M7 - 2.1 .Bin Files ready lo play 

Graphics 1-14 

CiRI - Atlanta, Cube, Space ♦ 

GR2 - Objects, Wargame, Worldinnp, 1 

GR3 - 9 Coco 3 Graphic programs. 

GR4 - 22 Coco Max Pictures 

GR5 - 22 Coco Max Pictures 

GR6 - 22 Coco Max Pictures 

GR7 - 15 Coco Max Pictures 

GR8 - 22 .BIN Pictures 

GR9 - 22 .BIN Pictures 

GRI0 - 14 I-argc .BIN Pictures 

GRI1 - 8 MGH Pictures 

GR 1 2 - Coco Max 3 Pictures 

GRI3 - Macpaiut Graphic Fililor 

GR14 - 5 Macintosh Pictures 



Adventures 1,2 

Al - CIA, Death Ship, Gargoyle, Kingdom, Kinglul 

- Odcysey, Nuclear Sub, Werewaud, Willsadv 
A2 - Andrea Doria, Curse, Ghoslship, Hogjowl 

- Icewar, Quest, Sorcerer, Survival, Adv. Gen. 

Telecommunications 1-3 

Tl - Haysac, Kcnnil, Mikeytcnn, Tclclcrm 
T2 - Cobbs BBs Terminal l-ackagc 
T3 - Getemi Communications 

Education 1-4 

F.I - 12 Programs for young kids. 

F.2 - 12 Programs for High School Kids 

F.3 - 1 1 Programs Teach the Coco's Commands 

E4 - 5 Graphic Programs About Australia 

HOME MANAGEMENT 1-4 

*12 Programs Fach Disk/Tape 

H I - Calendar, Financial Advise, Typing Tutor, t 

H2 - Check, Last Will, Word Processor, ♦ 

H3 - Envelope, Finance, Inlcrcst Rate, + 

H4 - Speeiitig Fix, Spelling Checker, ♦ 



Ltitlitcs 1-8 

*I2 Programs Fach, IM-L'4 Require Disk* 
II I - Dir32, Disk /upper, Rom Copy, Snap, ♦ 
U2 - Backup, Disktcst, label. Offset, ♦ 
113 - Convert. Disk Library, Play Mac, Relocate, ♦ 
U4 - Bin>Bnsic, Disk Master, Unnrc, Unlock, ♦ 
IB - Assembler, Basic 64, Database, Recover, ♦ 
L'6 - 64 look, HGR Color, LUST 32. Tape Type, ♦ 
1'7 - Letter head print with 30 mini pictures 
US - Fig Forth langiinge with tutorials! 

GAMES 1-11 

*F.ach Disk/Tape Couluins 12 Programs * 
GA I - Blnckbox, Car mce. Horses, Slaitrck * 
CiA2 - Chess, Rider, Rubic, Vapor worm, + 
GA3 - Backgammon, Gremlin, Poker. Robots, • 
GA4 -Hawks, Lunar World. Saucer, Shoolcm, + 
GAS - Battleship, Chicken. Raceway, Squash, t 
GA6 - Kings Army, Nnvyguns, Shipsub, Tanks, * 
GA7 - Connect 4, F- 16, Pizza, Rubic, t 
GA8 - Football, Germ Attack, Othello. Slither, * 
GA9 - Battle, Flight, Max Graphics, Prix, t 
GA10 - Blockade, life, Missile2, Scramble, ♦ 
GA 1 1 - Bunker 3, Guailal, Nuke Attack, Traders, ♦ 



T&D Subscription 
Software 

2490 Miles Standish Drive 
Holland MI 49424 

(616) 399-9648 
Fax: (616) 396-2744 



Prices: MR 

Single Issue (Tape or Disk)... $ 8.00 

2-5 ISSUES $ 6.00 Ea. 

6-10 Issues $ 5.00 Ea. 

1 1 or more Issues $ 4.50 Ea. 

All our software (189 disks) $ 279.00 

One year subscription $ 60.00 



*A11 issues conatain 6-15 ready to run 

programs on disk or tape. 
*Original software includes documentation 
*Wc send first class! No charge. 
*Pcrsonal checks welcome. 
*Writc for a free catalog. 
*Programs are for Coco 1 ,2 or 3. 



Original Software 



I 16 



17 
II 

4 19 

5 JO 

6 21 

7 22 
■ 23 

9 24 

10 25 

11 26 

12 27 

13 2« 

14 29 

15 30 



32 
13 
34 
35 

36 
37 
31 

39 



49 
50 
51 
52 
53 
54 
55 
56 
57 
SI 
59 
60 



64 
65 
M 
67 



71 
72 
73 



76 


91 


77 


92 


71 


93 


79 


94 


m 


95 


II 


96 


II 


97 


13 


91 


14 


99 


IS 


100 



16 

17 





Public Domain 






Ml 


OKI 


El 


III 


GA1 


M2 


GR2 


E2 


U2 


GA2 


M' 


GR3 


E3 


ll.l 


GA3 


Mi 


GR4 


E4 


114 


GA4 


Ml 


GR5 




U5 


GAS 


M6 


GR6 


HI 


U6 


GA6 


M7 


GR7 


H2 


U7 


GA7 




GR8 


H.I 


U8 


GA8 


Al 


GR9 


H4 




GA9 


A2 


GRI0 
GRII 






GAI0 
GAII 


Tl 


GRI2 








1? 


GRIJ 








T3 


GRI4 









Name _ 

Address 

City 



State 



Credit Card # 
Expiration _ 



.Zip 



Total $ 



Please Circle : TAPE or DISK 



If you have two drives, leave your Sys- 
tem Master (backup) in Drive /dO and put 
the BASIC09 disk in Drive /dl. Then enter 

chd /dl 

chx /dl/cmds 

At this point you can enter basi c09. It 
should load from disk and start running. 




To better understand your difficulties 
getting BASIC09 going, you'll need to bone 
up on OS-9's hierarchical directory struc- 
ture. We strongly recommend you read 
"OS-9: Catch the Wave" (January 1 988. Page 
166). Also read all you can about pathlists 
and the chd and chx commands. 

OS-9 Guide Troubles 

There seems to be a problem with the 
procedures Engl ishScreen. Ma- 
keScreens a//</Transl ate beginning 
on Page 54 of The Complete Rainbow Guide 
To OS-9 Level II. When I entered 

edit #44K MakeScreens <Translate 

as instructed on Page 5.S, the message MACRO 
OPEN appeared. When I later entered di r, / 
found a file named SCRATCH that disrupted 
the editor. I can delete SCRATCH, but it keeps 
reappearing. The problem is getting rid of 
it permanently so it doesn't interfere with 
edit. Adding the missing lines to 
Engl i shScreen doesn't work. 

Harold D. Clark 
Salem, Oregon 

SWhen you enter edi t along with the 
name of a file that already exists, the 
edit command creates a file called 
SCRATCH. (Speaking of scratch, our heads 
got a lot of that while trying to duplicate 
your problem.) This file holds part (or all) 
of the original text file and the changes you 



make. When you exit theeditor, the original 
file is deleted and SCRATCH is renamed with 
the original filename — that is. unless some- 
thing bombs the edit command, in which 
case SCRATCH is left on the disk. We encour- 
age you to read Page 7-5 in the "OS-9 Com- 
mands" section of the Level II manual. 
SCRATCH is a "normal" file and is not inter- 
fering with edi t. So let's look at why the 
editor bombed. 

When you use edi t. you must press the 
space bar as the first character on any line of 
text you want in the file. But these spaces 
don't appear in the final text file. They are 
used by the editor so it knows whether you 
are entering a command or a line of text. 
Our guess is that when you created Trans - 
1 ate. you entered at least one line without 
pressing the space bar first, and edi t exe- 
cuted the line immediately as a command 
without storing it in the file. You did this 
with either all the lines or just the last one. 
which contains the q (Quit) command. If 
you list your Trans late file, you'll find it is 
empty, or that the last line doesn't have the 
single letter q on it. 

This would be fine if Translate were 
just going to be used as a text file — you 
could just edit again and correct it. But in 
this case, the edi t command on Page 58 of 
our book is using Translate as a list of 
editor commands that are intended to alter 
MakeScreens. As explained in the book 
(please reread that section very carefully), 
these commands are executed automati- 
cally so you don't have to enter them from 
the keyboard. The actual text lines in Trans- 
late are not intended to appear in Ma- 
keScreens or Engl ishScreen. 

So edit knows its instructions are 
coming from Translate. It sets up Trans - 
1 ate as an internal macro and opens it. But 
when it gets to the end of the file, it doesn't 
see a q, which would tell it to quit. Rather, 
it sees an EOF (end-of-file) character. 
Unfortunately edit cannot exit if a macro 
(such as Translate) is open — edit can't 
quit of it's own accord. So the system locks 
up and you have to reboot. When you do, 
you see SCRATCH in the directory because 
the editor never got to the part where it 
renames the file. It's a good thing, too, or 
you'd have an empty file. The solution is to 
edit Translate and make sure all its lines 
are there. 

General Assembly 

On Page 3-2 of the "OS-9 Commands" 
section in the Level II manual is a shell 
command that calls the assembler. 1 
can't get the command to work, but I'm a 
fairly new OS-9 user. I called THE RAINBOW 
and heard that BASIC09 had taken place of 
asm in the Level 11 package, //asm is a legal 



command. I need to know how to call it from 

the shell. 

Robert D. Cook 
Medley. Florida 

SOS-9 Level II does not include an as- 
sembler. Instead, BASIC09 is provided 
with the package. OS-9 Level l comes 
with asm, the assembler to which you refer, 
and BASIC09 was sold separately. The Level 
II assembler, called KMA, comes in the De- 
velopment System. The command line on 
Page 3-2 in the Level II manual is given 
solely as an example of how OS-9 command 
lines work. It is not intended as a sample of 
how to call the (nonexistent) asm assem- 
bler. 

If you also have OS-9 Level I, you can use 
asm with its definitions (provided in the 
DEFS directory of the Level I disk) under 
Level II. Be aware that direct-page vari- 
ables are different between Level I and 
Level II. Also, OS-9 Level II provides system 
calls and error codes that are not included in 
the Level I defs files, especially for the 
windowing functions. 

Level I and the CoCo 3 

About a year ago , a friend switched to 
another machine and gave a lot of his 
CoCo software to me. Included were 
OS-9 ( Version 1. 01. 00) and the C Compi ler — 
/ got the original packages complete with 
manuals. I want to learn to use OS-9, and I 
have both a CoCo 2 and a CoCo 3. Does 
OS-9 work on the CoCo 3? 

Charles Rempel 

Plum Coulee, Manitoba 

Canada 

BWhat you received is OS-9 Level I, of 
which there are three versions: 1.00, 
1. 01 and 2.00. Versions l. 00 and l.oi do 
not work with the CoCo 3. Version 2.00does 
work on the CoCo 3 and was offered as an 
upgrade, but it is no longer available. You 
can go ahead and use the version you have 
with your CoCo 2. If you want to use OS-9 
on the CoCo 3, you' 11 have to get OS-9 Level 
II from Tandy. If you can't find it in a local 
store, try Tandy's Express Order System at 
(800)321-3133. 

"our questions regarding OS»9 are welcome. 
e address them to OS-9 Hotline, THE RAIN- 
BOW, P.O. Box 385, Prospect, K¥ 40059. 

We reserve the right to publish only questions 
of general interest and" to edit for brevity and 
clarity. Due to the large volume of mail we receive, 
we are unable to answer letters individually. 

Questions can also be sent to us through the 
Delphi CoCo SKi. From the CoCo S1G> prompt, 
pick Rainbow Magazine Services. Then at the 
RAINBOW* prompt, type ASK (for Ash. the Ex- 
perts) to arrive at the EXPERTS* prompt, where 
you can select the OS-9 Hotline online form. 
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Macm-May 



Programmers are always look- 
ing for ways to streamline pro- 
gram production, and "Assem- 
bly Line" is a good source of 
new ideas. This time we're 
going to examine programming macros, 
and I'll introduce a looping technique I 
loosely refer to as recursive programming. 
I addressed macros in my last article, but 
they're certainly deserving of a closer look. 
Macros are a lot like subroutines but 
with the following differences: Macros can 
be saved by themselves or as part of a macro 
file; they are added to the program each 
time they are called, eliminating the BSR 
command but using more memory: and 
values, strings, or memory locations can be 
passed directly to a macro as part of a call. 
Macros are efficient, professional-look- 
ing programming tools. Unfortunately, 
macros are not supported by the Tandy 
EDTASM+ cartridge. You'll need Color Disk 
EDTASM+ to use them. 

Listing 3 starts off with two macros. 
Line 100 defines the name of the first macro 
as LOCATE and states that this is indeed a 
macro. The next line means Register A is to 
be loaded with the second value passed to 



Bill Nee bucked the snowbird trend by retir- 
ing to Wisconsin from a banking career in 
Florida. The success of his li-part series, 
"Machine Language Made BASIC" (July 
I9S8 to July 1989). prompted him to continue 
writing articles about Color Computer 
machine-language programming. You may 
contact Bill at Route 2. Box 2I6C. Mason, Wl 
54856-9302. Please include an SASE when 
requesting a reply. 



by William P. Nee 



the macro when it is called in the program. 
A macro call has the following format: 

macroname valueO. value!, value2, . . . 




Macros are 
efficient, 
professional- 
looking 
programming 
tools. 



Remember, the values passed can be any 
combination of numbers or strings, or they 
can even be memory locations. Line 640 is 
the first call. It is to the macro LOCATE and 
passes the contents of memory locations 
X3, Y3 and SIZE as values 0, 1 and 2. The 
macro multiplies Value 1 and Value 2 then 
adds Value to that result. Values are 
indicated within the macro by a backslash 
(\) (shift/clear keys) followed by 
through 9. If you have more than ten values 
to pass, you can use A through Z after 
through 9. 



Loops within the macro also use the 
backslash, followed by a period and the 
letters A through Z. Each macro ends with 
ENDM. If you have a file of macros, you can 
add them to your program in one of two 
ways: You can insert INCLUDE MACRONAME 
near the start of the program for each macro 
used, which forces the disk to run and find 
that macro every time you test your pro- 
gram. Or you can load an entire macro file, 
delete the ones you won't use and then start 
your program. You can eliminate unneces- 
sary lines in the macro by starting that line 
with an asterisk (*) — the equivalent of 
REM in BASIC — which I did in Line 300 
since I could include the same information 
as part of the program. Doing this won 't add 
the line every time the macro is called, 
therefore saving memory and increasing 
speed. I like to save macros without adding 
an extension (EDTASM+ will add one) so I 
can distinguish between macros and source 
code. 

Be sure to include the macros as part of 
the source code in any written program or 
no one will know what the macro does 
when it's called unless they can disassemble 
the program from ZBUG. There are seven 
macros defined in the Tandy Color Disk 
EDTASM+ manual. These macros are shown 
on (unnumbered) Page 139. and they were 
the start of my macro file. If you have a 
very, very long macro that is going to be 
used several times in your program, you 
may be better off adding it as a subroutine 
and branching to it rather than using all the 
memory required by repeated calls. 

Again and Again 

Listing 1 is a BASIC program that draws 
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In order to continue to bring Tandy 
Color Computer users all the best 
information about new hardware and 
software products each month, we 
are constantly looking for new people 
to join our independent review staff. 
Therefore, we invite you to join THE 
rainbow's elite fleet of reviewers. 

You read THE RAINBOW because 
you love your Color Computer, so if 
you want a creative outlet and a 
chance to examine quality hardware 
and software, with your observations 
published nationwide, we want to 
hear from you. 

Send us a cover letter with your 
name, address, occupation, list of 
equipment, areas of general inter- 
ests, and a sample review of a CoCo 
product you are currently using. We 
look forward to your response. After 
all. we already see you have the best 
taste in computers. 

Reply to: 

Reviews Editor 
The Rainbow 
The Falsoft Building 
P.O. Box 385 
Prospect. KY 40059 






64K Disk ^ 


Listing 1: ENLARGE1 








1 'THE ASSEMBLY LINE 


140 


FOR Y3-0 TO SS 




2 'BY WILLIAM NEE 


150 


IF S(X3.Y3)-1 THEN 


GOSUB 170 


3 'COPYRIGHT (C) AUGUST 1991 


160 


NEXT Y3.X3:RETURN 




4 'BY FALSOFT. INC. 


170 


FOR X2-0 TO SS 




5 'RAINBOW MAGAZINE 


180 


FOR Y2-0 TO SS 




10 S=3:S4-S*S*S*S:S3-S*S*S:S2-S* 


190 


IF S(X2.Y2)-1 THEN 


GOSUB 210 


S 


200 


NEXT Y2.X2:RETURN 




20 SS-S-1 


210 


FOR Xl-0 TO SS 




30 DIM S(SS.SS) 


220 


FOR Yl-0 TO SS 




40 FOR X=0 TO SS:F0R Y-0 TO SS 


230 


IF S(X1.Y1)-1 THEN 


GOSUB 250 


50 S(X.Y)-1:NEXT Y .X :S(2 . 1 )-0:S( 


240 


NEXT Y1.X1:RETURN 




1.2)-0:S(2.2)-0 


250 


FOR X0-0 TO SS 




60 'S(X,Y)-1:NEXT Y.X:S(l.l)-0 


260 


FOR Y0-0 TO SS 




70 PMODE4.1:COLOR0.5:PCLS:SCREEN 


270 


IF S(X0.Y0)-0 THEN 


310 


1.1 


280 


XX=S4*X4+S3*X3+S2* 


<2+S*Xl+X0 


80 FOR X4-0 TO SS 


290 


YY=S4*Y4+S3*Y3+S2* 


r2+S*Yl+Y0 


90 FOR Y4-0 TO SS 


:IF 


YY>191 THEN 310 




100 IF S(X4.Y4)-1 THEN GOSUB 130 


300 


PSET(XX.YY) 




110 NEXT Y4.X4 


310 


NEXT Y0.X0:RETURN 




120 GOTO 120 








130 FOR X3-0 TO SS 









Listing 2: ENLARGE2 

1 'THE ASSEMBLY LINE 

2 'BY WILLIAM NEE 

3 'COPYRIGHT (C) AUGUST 1991 

4 'BY FALSOFT, INC. 

5 'RAINBOW MAGAZINE 
10 CLEAR200.&H6000-1 

20 IF PEEK(&H6015)<>16 THEN LOAD 

M"ENLARGE":POKE&HFF40.0 

30 PCLEAR8:L-16:FB-&HFF00 

40 L0-&H62AE 

50 CLS:INPUT"SIZE OF SQUARE [3-6 

] ":S:SS-S-1:IF S<3 OR S>6 THEN 

50 

60 POKE &H6000.S:POKE &H6001.SS: 

POKE &H6002,S*S:POKE &H6003.S*S* 

S 

70 PRINT"THIS WILL BE -".." 1 . RA 

NDOM PATTERN"." 2. YOU PICK THE P 

ATTERN" 

80 A$=INKEY$:IF A$-""THEN 80 

90 A-VAL(A$):0N A GOTO 100.120 

100 FOR X-0 TO SS:F0R Y-0 TO SS 

110 POKE L0+S*Y+X.RND(2)-1:NEXTY 

.X:GOTO260 

120 PMODE4,5:COLOR0.5:PCLS:SCREE 

Nl.l 

130 FOR X-0 TO SS:F0R Y-0 TO SS 

140 POKE L0+S*Y+X.1:LINE(X*L.Y*L 

)-(X*L+L.Y*L+L).PSET,B:NEXT Y.X 

150 X-JOYSTK(0):Y-JOYSTK(1) 

160 XX-INT(X/4):YY-INT(Y/4):IF X 

X>SS OR YY>SS THEN 150 

170 LINE(XX*L.YY*L)-(XX*L+L.YY*L 

+L).PRESET.B:LINE(XX*L.YY*L)-(XX 

*L+L.YY*L+L),PSET,B:IF PEEK(FB)- 

254 OR PEEK(FB)-126 THEN 350 

180 A$=INKEY$:IF A$-CHR$(13) THE 

N 190 ELSE 150 

190 X0-XX:Y0-YY:CLS 

200 PRINT"WHICH DIRECTION?"." 1. 

FROM THE CORNERS IN"." 2. FROM TH 



E CENTER OUT"." 3. REGULAR PATTER 

N" 

210 D$-INKEY$:IF D$=""THEN 210 

220 D-VAL(D$):IF D<1 OR D>3 THEN 

210 ELSE POKE &H6004.D 
230 PMODE4.1:COLOR0.5:PCLS:SCREE 
Nl.l 

240 EXEC &H6015 

250 A$-INKEY$:IF A$-""THEN 250 E 
LSE 390 

260 PMODE4,5:COLOR0.5:PCLS:SCREE 
Nl.l 

270 FOR X-0 TO SS:FOR Y-0 TO SS 
280 IF PEEK(L0+S*Y+X)-1 THEN LIN 
E(X*L.Y*L)-(X*L+L.Y*L+L).PSET.B 
290 IF PEEK(LO+S*Y+X)-0 THEN LIN 
E(X*L.Y*L)-(X*L+L.Y*L+L).PSET.BF 
300 NEXT Y.X 

310 A$-INKEY$:IF A$-"" THEN 310 
320 IF A$="*" THEN 100 
330 IF A$-CHR$(13) THEN 190 
340 GOTO 310 

350 V-PP0INT(XX*L+L/2.YY*L+L/2) 
360 IF V-5 THEN LINE(XX*L.YY*L)- 
(XX*L+L.YY*L+L).PSET.BF:POKE L0+ 
S*YY+XX.0 
370 IF V-0 THEN 
(XX*L+L.YY*L+L), 
0+S*YY+XX,l 
380 GOTO180 
390 CLS:PRINT 

400 PRINT"1. REFORMAT THIS SQUARE 
"."2. BACK TO MAIN MENU" 
410 A$-INKEY$:IF A$-"" THEN 410 
420 A-VAL(A$):ON A GOTO 440.470 
430 GOTO 410 

440 PMODE4.5:COLOR0.5:SCREEN1.1 
450 XX=X0:YY-Y0 
460 GOTO 150 
470 GOTO 50 



LINE(XX*L.YY*D- 
,PRESET.BF:POKE L 
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Listing 3: enlarge. asm 



00100 


LOCATE 


MACRO 






00110 




LOA 


\1 


20 VALUE 


00120 




LOB 


\2 


30 VALUE 


00130 




MUL 






00140 




ADDB 


\0 


1ST VALUE 


00150 




ENDM 






00160 










00170 


PSET 


MACRO 






00180 




LOA 


\1 




00190 




LDB 


#32 




00200 




MUL 






00210 




ADDA 


SBA 




00220 




TFR 


D.X 




00230 




LDB 


\0 




00240 




LSRB 






00250 




LSRB 






00260 




LSRB 






00270 




ABX 






00280 




LDA 


\0 




00290 




ANDA 


#7 




00300 


* 


LDU 


#$9200 


PART OF T 


00310 




LOA 


A.U 




00320 




COMA 






00330 




ANDA 


.X 




00340 




STA 


.X 




00350 




ENDM 






00360 










00370 




ORG 


$6000 




00380 


SIZE 


RMB 


1 




00390 


ss 


RMB 


1 




00400 


S1ZESO 


RMB 


1 




00410 


SIZECU 


RMB 


1 




00420 


WHICH 


RMB 


1 




00430 


ACROSS 


RMB 


1 




00440 


DOWN 


RMB 


1 




00450 


X3 


RMB 


1 





repeated enlargemenls of a 3-by-3 square. 
Initially all the values within a 
corresponding 3-by-3 array are set to 1. 
which means they will each be drawn. Any 
cell you define as having a value of is 
skipped by the program and not drawn. 

Line 80 starts the main portion of the 
program. Each cell in the array is checked. 
If it has a value of 1. the program goes to 
Line 130 where again each cell is checked. 
Any value of 1 causes a jump to Line 170, 
then to Line 210 and finally to Line 250 
where the actual computation of the point to 
be PSET is made. The basic pattern is re- 
peated four times, getting larger each time. 
Try the program using Line 50 and then 
using Line 60. A 3-by-3 square is the only 
size that can be enlarged four times across 
the screen, and even it gets cut off at the 
bottom. The next program enlarges squares 
only three times. 

The machine-language program in List- 
ing 3 starts off with a LOCATE macro that 
computes the current location within the 
array at any time. LOCATE is followed by a 
PM00E 4 PSET macro. Notice that Line 300 
has been omitted since I can make Register 
U a constant in the program ( I" m not usually 
this lucky). Space is then reserved for all of 
the variables. At this point you could set the 
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EXTENDED ADOS-3 $29.95 

(Requires ADOS-3) 

Disto real-time clock driver. $5. 
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DP Register to #S60, but the program is quick 
enough as it is. 

Routine THREE is the first loop. Once the 
location has been computed from the three 
values passed in the LOCATE macro call, the 
value of that location is checked. If it's not 
0, the program branches to TWO and another 




^Anope this 

article encourages 
you to experiment 
with macros. 
I'd like to see 
macros used more 
often in machine- 
language 
programming. 



loop is started. If the new location calcu- 
lated in Loop TWO is not 0. the program 
branches to Loop ONE and then finally to 
Loop ZERO. If the value in this location is 1, 
lines 1210-1570 compute the coordinates to 
be PSET. Both coordinates must be checked 
to see that they are within the 255-by-l9l 
screen. The various size values were poked 
into their locations by the BASIC program 
(Listing 2). 

You can draw the pattern in three differ- 
ent ways: You can draw from each corner 
going in: from the center of the screen going 
out in each direction: or starting at the 
upper-left corner. The way you want to 
draw is picked in the BASIC program and the 
corresponding value stored in WHICH. 
Routine Tl computes the coordinates for 
the four comers. Notice that the PSET macro, 
however, is called using ACROSS and DOWN. 
Because Routine T2 starts at the center of 
the screen, it must check to see that coordi- 
nates will fit into one-fourth of the screen 
(127 by 96 pixels). Again, the new coordi- 
nates are computed, but still passed as 
ACROSS, DOWN. Finally, Routine TIPSETsthe 
new coordinates. 

The end of Routine ZERO branches back 
to Routine ONE where the next value is 
checked, which may cause a branch back to 
ZERO. When Routine ONE is completed, it 
branches back to Routine TWO where the 
next cell is checked. This may cause a 
branch to ONE, which may cause a branch to 
ZERO. The RTS in Line 760 finally ends the 



00460 


Y3 


RMB 






00470 


X2 


RMB 






00480 


Y2 


RMB 






00490 


XI 


RMB 






00500 


Yl 


RMB 






00510 


X0 


RMB 


1 




00520 


Y0 


RMB 






00530 


XX 


RMB 






00540 


YY 


RMB 






00550 


XCORD 


RMB 


2 




00560 


YCORD 


RMB 


2 




00570 










00580 


START 


LDY 


//ARRAY 




00590 




LDU 


//J92DD (SEE LINE 300) 




00600 


THREE 


CLRA 






00610 


LI 


STA 


Y3 




00620 




CLRB 






00630 


L2 


STB 


X3 




00640 




LOCATE 


X3.Y3.SIZE 




00650 




TST 


B.Y CHECK THE CURRENT 


VALUE 


00660 




BE0 


L3 




00670 




BSR 


TWO BRANCH IF T 




00680 


L3 


LDB 


X3 




00690 




INCB 






00700 




CMPB 


SS 




00710 




BLS 


L2 




00720 




LDA 


Y3 




00730 




INCA 






00740 




CMPA 


SS 




00750 




BLS 


LI 




00760 




RTS 






00770 










00780 


TWO 


CLRA 






00790 


L4 


STA 


Y2 




00800 




CLRB 






00810 


L5 


STB 


X2 




00820 




LOCATE 


X2.Y2.SIZE 




00830 




TST 


B.Y 




00840 




BEQ 


L6 




00850 




BSR 


ONE 




00860 


L6 


LDB 


X2 




00870 




INCB 






00880 




CMPB 


SS 




00890 




BLS 


L5 




00900 




LDA 


Y2 




00910 




INCA 






00920 




CMPA 


SS 




00930 




BLS 


L4 




00940 




RTS 






00950 










00960 


ONE 


CLRA 






00970 


L7 


STA 


Yl 




00980 




CLRB 






00990 


L8 


STB 


XI 




01000 




LOCATE 


XI. Yl. SIZE 




01010 




TST 


B.Y 




01020 




BEQ 


L9 




01030 




BSR 


ZERO 




01040 


L9 


LDB 


XI 




01050 




INCB 






01060 




CMPB 


SS 




01070 




BLS 


L8 




01080 




LDA 


Yl 




01090 




INCA 






01100 




CMPA 


SS 




01110 




BLS 


L7 




01120 




RTS 






01130 










01140 


ZERO 


CLRA 






01150 


LIB 


STA 


Y0 




01160 




CLRB 






01170 


Lll 


STB 


X0 




01180 




LOCATE 


X0.Y0.SIZE 




01190 




TST 


B.Y 




01200 




LBEQ 


DONE 




01210 




LDA 


SIZECU 




01220 




LDB 


X3 




01230 




MUL 


SIZE*SIZE*SIZE*X3 




01240 




STD 


XCORD 




01250 




LDA 


SIZESQ 




01260 




LDB 


X2 




01270 




MUL 






01280 




ADDD 


XCORD +SIZE*S1ZE*X2 




01290 




STO 


XCORD 




01300 




LDA 


SIZE 




01310 




LDB 


XI 




01320 




MUL 






01330 




ADDD 


XCORD +SIZE*X1 




01340 




ADDB 


X0 +X0 




01350 




ADCA 


#0 
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01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 Tl 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 
02060 



T? 



CMPD 
LBH1 
STB 

LDA 

LDB 

MUL 

STD 

LDA 

LDB 

MUL 

ADDD 

STD 

LDA 

LDB 

MUL 

ADDD 

A0D8 

ADCA 

CMPD 

LBHI 

STB 

LDB 

CMPB 

LBEQ 

CMPB 

LBEQ 

LDD 

STD 

PSET 

LDA 

SUBA 

LDB 

STD 

PSET 

LDA 

LDB 

SUBB 

STD 

PSET 

LDD 

SUBA 

SUBB 

STD 

PSET 

LBRA 

LDD 

CMPA 

LBHI 

CMPB 

LBHI 

LDD 

ADDA 

ADDB 

STD 

PSET 

LDD 

ADDA 

SUBB 

STD 

PSET 

LDD 

SUBA 

ADDB 

STD 

PSET 

LDD 

SUBA 



#255 
DONE 
XX 

SIZECU 
Y3 

YCORD 

SI2ESQ 

Y2 

YCORD 
YCORD 
SIZE 
Yl 

YCORD 
Y0 

m 

#191 
DONE 
YY 

WHICH 

#3 

T3 

#2 

T2 

XX 

ACROSS 

ACROSS. DOWN 

#255 UPPER-RIGHT CORNER 

XX 

YY 

ACROSS 

ACROSS. DOWN 

XX 

#191 LOWER-LEFT CORNER 

YY 

ACROSS 

ACROSS. DOWN 

#$FFBF LOWER-RIGHT CORNER 

XX 

YY 

ACROSS 

ACROSS. DOWN 

DONE 

XX 

#127 

DONE 

#95 

DONE 

#$8060 

XX 

YY 

ACROSS 

ACROSS. DOWN 

#$8060 

XX 

YY 

ACROSS 

ACROSS. DOWN 

#$8060 

XX 

YY 

ACROSS 

ACROSS. DOWN 

#$8060 

XX 



02070 




SUBB 


YY 


02080 




STD 


ACROSS 


02090 




PSET 


ACROSS. DOWN 


02100 




BRA 


DONE 


02110 








02120 


T3 


PSET 


XX. YY 


02130 


DONE 


LDB 


X0 


02140 




INCB 




02150 




CMPB 


SS 


02160 




LBLS 


Lll 


02170 




LDA 


Y0 


02180 




INCA 




02190 




CMPA 


SS 


K2m 




LBLS 


L10 


02210 




RTS 




02220 








02230 


ARRAY 


RMB 


1 


02240 




END 


START 



m 



program and returns to BASIC. Save the 
source code with W ENLARGE. ASM and as- 
semble with A ENLARGE.BIN /NS/WE. 

The BASIC driver in Listing 2 clears 
space for the machine-language program 
and loads it, if necessary. After you choose 
the size of square you want. Line 60 pokes 
the size values into their locations. You 
must then decide whether you want the 
computer to pick a random pattern or if you 
want to draw it yourself. In eilher case, a 
large square is drawn on the screen. If you 
chose the random pattern option, some of 
the inside squares will be black — these are 
the squares that won't be drawn. If you 
don't like the pattern, press the up arrow 
and a new one will be drawn. If you are 
creating your own pattern, move the joys- 
tick until it flashes the square you want and 
press the firebutton to reverse the color in 
that square. 

In either case, when you have a pattern 
you like press, ENTER and then decide in 
which direction the pattern will be drawn. 
When the pattern is completed, press ENT- 
ER and then either reformat the old square 
or start with a new one. The larger the 
square, the longer it will take to complete 
the enlargement. Remember, the program 
may still be working even if it appears 
otherwise. The ENTER key works only when 
the pattern is finished. Save this program as 
ENLARGE2. For a sample, number the cells 
of a four-sided square from 1 (upper left) to 
16 (lower right), blacken squares 3, 8. 9 and 
14 and then choose Direction 1 . When the 
pattern is finished, also blacken square 16 
and try again. 

You could convert this program to color, 
but in the CoCo 2 you'll only have 128 bits 
across to use, so large squares won't give 
you a pretty design. The PMODE 4 program 
shows artifact colors on my television. I 
hope this article encourages you to experi- 
ment with macros. I'd like to see macros 
used more often in machine-language pro- 
gramming. If you have questions about 
macros or any suggestions for subjects you'd 
like to see covered, please let me know. 

P.O. Box 733 
Maple Valley, WA 98038 
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Delphi 
Bureau 



Literally Speaking 



by Eddie Kuns 

OS-9 SIG Database Manager 



You may have noticed that many 
forum messages are nicely for- 
matted, with centered lines and 
indented sections. Well, if 
you've wondered how people 
create these formatted messages, pay atten- 
tion. I"m going to disclose all their secrets 
— they use dot commands. 

Normally when Delphi displays the text 
you entered as your forum message, every- 
thing you type is automatically reformatted 
for the width of the screen on which the 
message is being read. Therefore, you can 
type your text 80 characters wide without 
the text looking odd on a screen with only a 
32-column capability. Delphi automatically 
reformats the text to the proper width. These 
reformatting rules are simple: If several 
consecutive lines of text all begin with a 
nonblank character, they are considered 
one block of text. A block of text is ended by 
a blank line, and a line beginning with one 
or more blanks begins a new block. For 
example, the following text. 

Hey. everybody! This is 
a test of forum's 

automatic line formatting! 
What will this look like 
when formatted? 

is reformatted as shown in Figure 1. 

This automatic reformatting can some- 
times interfere with the way you want your 



Eddie Kuns is pursuing a PhD in physics at 
Rutgers University. He lives in Aurora, 
Illinois, and works as a programmer and 
researcher at Fermilah. Eddie is co-man- 
ager of the CoCo SIG; his usemame is 
EDDIEKUNS. 



Hey. everybody! This is a test of forum's 

automatic line formatting! What will this look like when formatted? 

(a) Mi-column Screen 

Hey. everybody! This is a test 
of forum's 

automatic line formatting! 
What will this look like when 
formatted? 

(b) 32-column Screen 



Figure 1: Automatic Text Reformatting 



message to appear. For this reason, there 
are two often-used commands that almost 
always appear in pairs: .It and .el. The 
. 1 1 command instructs Delphi to start the 
literal mode, and .el ends the literal mode. 
Note that these commands must be by them- 
selves on a line, and the period must be the 
first character on the line (hence the name, 
dot commands). In literal mode the text 
appears exactly as entered, without any 
reformatting. 

One way to get nicely formatted forum 
messages is to edit the message offline. Put 
. 1 1 by itself on the first line and . el on the 
last. Then send this file as your forum 
message. 

The problem with literal mode is that the 
message appears nicely formatted only to 
those whose terminals are as wide as the 
terminal you used to enter the text. For this 
reason I discourage use of this mode except 
for specific sections of a message. Literal 
mode is invaluable for presenting tables, or 
for including code fragments or other types 
of text you don't want reformatted. Figure 



2a shows a sample reply to a user's ques- 
tion. To get this result, the author placed a 
. 1 1 by itself on the line just prior to the 
float declaration. He also put .el on its 
own line after the call to pf f i n i t . Figure 2b 
shows how it would look if he hadn't. 

Turning the Page 

The .page command is a very useful dot 
command that allows you to ask those read- 
ing your message if they want to continue 
reading. If you are posting a long source- 
code listing in response to a specific per- 
son's question, it is possible that not every- 
one will be interested in reading several 
pages of code. A polite way of handling this 
is to announce that the message is long and 
include a line similar to the following: 

.page Continue reading? 

This causes Delphi to ask anyone read- 
ing your forum message if they want to 
continue. If they answer "No" (or press N). 
they will proceed to the Forum> prompt 
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You need to include pffinit to print floating point variables. This should do 
the trick in this case: 

float f: 
double d; 
pffinitO: 



Hope this helps! 



(a) Desired Result 



You need to include pffinit to print floating point variables. This should do 
the trick in this case: 

float f: double d: pffinitO: 

Hope this helps! 

(b) Without Dot Commands 



Figure 2: Use of Literal Mode 



without seeing the remainder of the mes- 
sage. But if they answer "Yes" (press Y) or 
just press ENTER, they will see the rest of 
your message. The .page command with- 
out any additional text simply generates a 
More? prompt. 

A Marginal Situation 

With dot commands, you can also play 
with the margin settings, although the only 
margin normally changed is the left margin. 
If you want to indent a section of text, 
precede that section with .lm 5 and follow 
it with . 1 m 0. This sets the left margin to the 
fifth column for the section you want in- 
dented and resets it to normal following the 
indented text. 

If you include a section of text from 
another message and want to "quote" that 
text to separate it from your own. you can 
use a special feature of the . 1 m command 



that is more easily demonstrated than ex- 
plained. In the following snippet. I quote 
another user's question: 

.lm 4 /annot-> 

Hey. Eddie. How was your trip? 

.lm 

It was great! 

Here's how it appears: 

> Hey. Eddie! How was 

> your trip? 



It was great! 

Yes. the > symbol in the left margin comes 
from the /annot-> part of the .lm com- 
mand. You can use any character or charac- 
ters you want. Sometimes a short quote 



from the message to which you are replying 
is very helpful in supplying a context for 
your reply. I emphasize short — you don't 
want to quote the entire message, just enough 
to make it obvious to what you are replying. 
There are several other, less-used, dot 
commands. I'll save these for next month 
and provide an example showing several of 
these dot commands in use. 

Database Information 

The OS-9 databases have been undergo- 
ing some reconstruction as you may have 
already noticed. Greg Law. the OS-9 SlGop. 
has been working very hard, with some 
help from me and other users, to reorganize 
the OS-9 databases. There are two goals: To 
make files easier to find; and to make the 
databases more consistent. The result of 
this is that many files may be moved from 
one database into another. Some databases 
are being merged, such as Applications and 
Utilities, while others may be split. I will 
have more details on this next month, but 
for now, don't worry. No files will be 
deleted. 

In the OS-9 General Information database. 
Jim Sutemeier contributed an article de- 
scribing how to build a UPS (Uninterrup- 
tible Power Supply) for the CoCo. If you 
have trouble with momentary brownouts, 
you may want to take a look. Greg Law 
posted a patch for Computerware's dir- 
copy to allow this utility to work with OS-9 
Level il windows. Brian Paquette submit- 
ted a Pig Latin filter that functions a lot like 
the Valley Girl filter I mentioned last month. 
Philip Brown's single-sided copy program 
allows you to copy files from one disk to 
another when you have only one disk drive. 
While Tandy's copy command has a single- 
drive option, it requires that both disks be 
formatted identically. 

In the Device Drivers database, Hugo 
Bueno posted a patch to wi ndi nt that dis- 
ables its erasing and redrawing of each 




American Computing 

Equipment 

P.O. Box 39281 

Louisville, KY 40233 

1-800-346-2794 

9am-6pm. VISA/MC/Check 

Shipping: US S3, Canada 55. 

Other Countries S7 

COD. add S3 

KY residents add 6% sales tax 



NEW! Graphics Oriented Assembly Language 

A brand new language from a brand new Color Computer 

supporter. GOAL (Graphics Oriented Assembly Language) is 

modeled after 68000 and VAX-11 assembly language to make 

programming in assembly easier. 



* Programs are assembled into memory- 
saving object code 

* Low-level principles mean GOAL 
programs execute fast 

* VI. 00 has over 200 instructions with 40 
special graphics instructions 

* Multi-tasking feature allows a BASIC 
program and many GOAL programs to 
run simultaneously 



* 19 powerful memory-saving addressing modes 

* 130 pages of documentation, sample programs, 
assembler, interpreter, and fonts included 

* CoCo 3 version requires at least 128K, disk drive 

* CoCo 2 version requires 64K, disk drive 

» Price until August 31st: $29.00 

* GOAL Icons & ACE Fonts: Each S10.00 

* GOAL, Icons, & Fonts: All three for $39.00 

* OS-9 Version Available In August 
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window's title bar when you change to, or 
from. aMulti-Vue menu window. Because 
interrupts are disabled while the title bar is 
being redrawn, some people lose characters 
when they switch windows while telecom- 
municating. This patch fixes the problem. 
Tim Kientzle uploaded a patched version 
of the Burke & Burke real-time-clock driver 
that includes the patches described by Bruce 
Isted in the August 1990 issue of THE RAIN- 
BOW as well as other enhancements. 



Database Report 




Tim Kientzle released the newly-ported 
Small C compiler, which he worked on with 
Philip Brown, into the Programmer's Den. 
If you don't have the Microware C com- 
piler, or if you always wanted to examine 
the inner workings of a compiler, take a 
look. Small C doesn't support all the fea- 
tures of C. Brian Paqueile's Mini Lint looks 
for balanced parentheses, curly braces and 
comment markers in C source code. 

Ed Gresick posted an index to the TOP 
disks. (TOP stands for The OS-9 Project and 
is located in Germany.) The TOP disks 
contain a lot of free software, either ported 
from other operating systems or written 
from scratch. Most of the TOP programs 
work only on 68000-series machines be- 
cause of their size. 

In the CoCo S1G, Marty Goodman 
described his efforts to repair a "Golden 
Hour" clock and the NiCad battery pack for 
his Toshiba portable computer. Larry 
Moore released a newer version of Steve 
Ricketts' DS&View with the printer driver 
for the Tandy CGP-220 printer. Larry Moore 
also posted two 1991 printer art calendars. 
While this article won't see print until the 
middle of the year, it's not too late to take a 
look. Richard Trasborg uploaded a new 
version of David Mills' 640 IMG viewer. 
This release fixes a problem some people 
encountered when trying to use 3'/z-inch 
drives with an earlier version. 

Art Flexser contributed a text-file split- 
ter. This program takes a large text file and 
splits it into several pieces — prompts ask 
how large you want each segment to be. 
This is useful if you download a huge file 
and your editor can only look at part of it at 
a time. Rick House uploaded four games; 
two betting games — a slot-machine and 
roulette — and two others. Joe Sannucci 
released the latest version of Wayne Laird's 
BBS list, which includes over 325 BBSs span- 
ning four continents! J 



General Information 

C0C03_UPS 

JSUTEMEIER Jim Smcmcicr 

DELMAR SOFTWARE 

PAGAN Stephen Carville 

MM/1 IN RICHMOND 

PKW Paul K. Ward 

GNU NEWSLETTER 

JBUCATA Jason Bucata 

DELMAR AND PERIPHERAL TECHNOLOGY 

EDELMAR Ed Gresick 

MM/1 SOFTWARE BUNDLE 

PKW Paul K. Ward 

MM/1 AT BUSCON 

PKW Paul K. Ward 

Applications 

DIRCOPY PATCH FOR LEVEL 2 
GREGL Greg Law 

MVCHECK VZ.2A PATCH 
KEITHBAUER Kcilh Bauer 

Utilities 

DOALL: MULTIPLE FILE MANAGEMENT 

THEFERRET Philip Brown 

SPEECH FILTERS 

MDALENE Mike Dalene 

INDENT V2.0 

THEFERRET Philip Brown 

NEW HEADER 

RICKGRAY Rick Gray 

SBACK VI. 

SEBJMB Jeff Blower 

APPLICATIONS 

BSCHWING Baron Schwing 

SCREEN DUMP VERSION 1.1 

MARLOU Marie-Louis Marcoux 

SGREP 

BRIANPAQ Brian Paquctte 

PIG LATIN CONVERTER 

BRIANPAQ Brian Paquette 

SINGLE-SIDED COPY 

THEFERRET Philip Brown 

LOTTO. AR 

JSUTEMEIER Jim Sulemcier 

SCRIBE- TEXT GENERATOR 

BRIANPAQ Brian Paquelte 

SPEECH SUPPORT 

MDALENE Mike Dalene 

Device Drivers 

WINDINT INTERRUPT PATCH 
MRGOOD Hugo Bueno 

CLOCK. BB FOR B&B RTC 
TIMKIENTZLE Tim Kientzle 

Graphics & Music 

MILITARY SOUNDS 

DRIFTY Richard Gonzales 

HIS LAST DAYS (UME. MT-540) 

DFYE Danny Fye 

HIS LAST DAYS (UME. MT-240) 

DFYE Dannv Fve 

MICHELLE IN LACE ON THE BEACH 

BOYNGER David Boynton 

KRISTIAN AND CHRISTIE IN SWIMSUI 

GRAPHICSPUB Bob Monlowski 

Programmers Den 

ALARM. H 

THEFERRET Philip Brown 



MF1T00.ART 

PAULSENIURA Paul Seniura 
EASE THE USE OF PASCAL09 
TON YSCHOUNTZ Tony Schountz 
MOTOROLA CROSS ASSEMBLERS 
NES Eric Stringer 

RANDOMIZE. AR 
JSUTEMEIER Jim Suiemeier 
IOCTL.H + SGTTY.H 



THEFERRET 

MINILINT 

BRIANPAQ 

SMALL C COMP 

TIMKIENTZLE 

ANSIDRV THE C VERSION 

MDALENE Mike Dalene 



Philip Brown 

Brian Paquelte 
LER 
Tim Kientzle 



68K-OS9 

TOP DISKS INDEX 
EDELMAR Ed Gresick 



Tutorials & Education 

NEW ELEMENT 
OS9BERT 



Ben Schneider 



General Information 

REPAIRING A GOLDEN HOUR 

MARTYGOODMAN Many Goodman 

TOSHIBA 1000 NICAD FIX 

MARTYGOODMAN Many Goodman 

CoCo i Graphics 

MARVEL SUPER HEROES 
RICKMAC Richard McNabb 

DS69VIEW W/PRINT FOR CGP220 
LDMOORE Larry Moore 

BLADERUNNER SCANS 
RICKMAC Richard McNabb 

M0DELT.CM3 

RICKMAC Richard McNabb 

NEW 640 IMG VIEW MASTER 
TRAS Richard P. Trasborg 

DICK TRACY CM3 PICTURE 
CORTLEY Patrick Fingliss 

1991 PRINTER ART CALENDARS 
LDMOORE Larry Moore 

MORE C0C0MAX ART BY HCR 
HOWARDC Howard C. Rouse 

3 MORE COUNTRY GIRLS IN IMG 
LDMOORE Larry Moore 

Utilities & Applications 
TEXT FILE SPLITTER 
ARTFLEXSER Art Flexser 

Games 

SL0T.BAS 

HOUSES Rick House 

ROULETTE 

HOUSES Rick House 

DUNGEON DEPTHS FIX FOR ADOS-3 

ARTFLEXSER Art Flexser 

SCUD MISSILE ATTACK 

HOUSES Rick House 

J0UST-A KNIGHTS BATTLE 

HOUSES Rick House 

Product Reviews & Announcement 

DEMO FOR CHECKB00K+ 
JOELHEGBERG Joel Hegberg 

Telecommunications 

C0C0S9ER.TX5 

SANNUCCI Joe Sannucci 
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The following products have recently been received by THE RAINBOW, examined by 
our magazine staff and issued the Rainbow Seal of Certification, your assurance 
that we have seen the product and have ascertained that it is what it purports to be. 



System IV. a 68000-based computer lhal runs OS-9/ 
68000. Uniflcx. MIN1X. SiarDos and REXDOS. The 
Terminal system includes one megabyte of memory, 
four serial ports, two parallel ports, one high-density 
floppy drive and a PC-compatible keyboard interface. 
The Console system includes the above features and 
adds a VGA card and a 1 01 -key. AT-style keyboard. 
Both systems include Professional OS-9/68000. Ver- 
sion 2.4. Delmar Company. Middlctown Shopping 
Center. P.O. Box 78. Middletown, DE 19709. (302) 
378-2555: Terminal system $999: Console system 
$1149. 

All Rick's Software, an offering of every program 
advertised by Rick's Computer Enterprise: 
CC3FLAGS. a Risk-type strategy game; VOCAB. a 
scrabble word game: Master Dir. a disk database: 
Programs for Friends, three educational programs 
and a card game: The Rainbow Indexes, a database of 
all articles published in THE RAINBOW: NIB Com- 
pressor, a graphics compression utility: Rick's CoCo 
Gallery, selected pictures from Rick's personal library: 
Gallery Maker, a graphics viewing utility for your 
own picture files; Puzzles, a jigsaw puzzle program 
thai lets you create puzzles from your own graphics 
pictures: Telra. the popular block-puzzle game: Master 
Directory 3. all new CoCo 3 version of Master Dir. 
and Steve's Pics, more graphics pictures. Rick's 
Computer Enterprise. P.O. Box 276. Liberty, KY 
42539: $33. plus $2 S/H. 

DynaStar — OS-9/6809 and OS-9/68000 versions, 
a menu-driven screen editor equally suited to the tasks 
of program preparation and word processing. Single- 
keystroke commands move the cursor in any direction 
by character, word. tab. line or full screen. These 
commands also delete characters, words, or even 
whole lines. For programmers, there is an auto-indent 
mode. DynaStar permits editing files larger than 
memory. Dynastar has a Help menu that displays at 
the top of the screen a brief definition for each 
command. DynaStar allows users to create powerful 
macros with its unique macro facility. Also included 
is the DynaForm print formatter. DynaForm's stan- 
dard features include pagination, headers and footers, 
single, double, and multiple spacing, boldface, double- 
strike, underline, and a macro facility with many 
options. Frank Hogg Laboratory. 204 Windcmere 
Road. Syracuse. NY 13205. (315) 469-7364: $200. 
plus $5 S/H. 

^ Goal 1.00. Graphics-Oriented Assembly Lan- 
guage (GOAL) for the CoCo 3. If you already know 
assembly language, this reference is all you need for 
programming in GOAL. It comes with a 134-page 
manual and software. Software includes an assem- 



bler, an interpreter, sample GOAL boot programs, 
fonts and sample programs. Requiresa 35- or 40-lrack 
disk drive. American Computing Equipment, P.O. 
Box 39281. Louisville. KY 40233. (502) 459-7966: 
$29 

Disk Manager's Apprentice, a new file-manage- 
ment utility set for use with the CoCo 3 under Disk 
BASIC. Each utility in the set has been created to help 
you organize Disk BASIC disks and the files on the 
disks. These utilities are combined into a single ex- 
ecutable environment called DMA. Once booted, all 
utilities are memory resident. Some of the tools are: 
Full wild-card file handling — all wild-card syntax 
can be used with COPY. KILL. MOVE. VIEW. 01 R. CAT, etc.; 
and Point and Select filename features — allows 
lagging of multiple files to copy, kill, etc. DMA 
supports RAM disks. Requires a CoCo 3. at least one 
disk drive and an 80-column display. CoCo PRO! 
Products. 1334 Byron Ave.. Ypsilanti. Ml 48198. 
(313) 481-3283: $29.95. plus $4 S/H. 

Tools II. a new set of 27 OS-9 Level II tools to make 
your computing easier. Features window utilities (such 
as a screen saver, global search-and-replace with wild 
cards, a GO command to easily change directories), 
process-scheduling utilities, alarm and demon (a so- 
phisticated background-task manager with sched- 
uling), script-file utilities, recobbler, I/O port utilities 
including nett Ink and an autodialer for voice calls, 
and calculation utilities. CoCo PRO! Products. 1334 
Byron Ave.. Ypsilanti. Ml 48198. (313) 481-3283: 
$34.95. plus $4 S/H. 



DPMAX. two additional programs for the Delta Pro 
package — dpmax and DACCOMM .BIN — to increase the 
productivity of your Delta Pro system. DPMAX is an 
interface program using dcomm.bin as the main dig- 
itizer and disk access routines, dpmax offers advanced 
features such as jump sequencers. MIDI playback, 
real-time level meter and memory displays, point- 
and-shoot interface during record and playback, and 
constant audio monitoring. DACC0MM . B 1 N is a machine- 
language interface program that uses the CoCo 3 
interrupts to allow playback of Delta-Encoded sound 
files through the CoCo 6-bit DAC. This allows for 
playback without the Delta Pro pack. DPMAX re- 
quires a CoCo 3. a disk drive, the Delta Pro interface 
pack, a Multi-Pak or Y cable, and a joystick or mouse. 
Lucas Industries 2000. 14720 Cedar Street NE. Alli- 
ance. OH 44601. (216) 823-4221: included with the 
purchase of the Delta Pro package. 

OS-9 Calendar Utilities, utilities designed to work 
alone or as companions to gca 1 . the calendar program 
supplied with Mulii-Vue. They allow the user to auto- 
mate many of the repetitive tasks that go with 
maintaining gcal calendar files. The utilities operate 
on data files of the same formal as those created by 
gcal. Also included on the disk are a Multi-Vue 
application-information file ( AIF) and an icon file for 
use with gcal under Multi-Vue. The user can click on 
a calendar data file and have it opened automatically 
when gcal runs. MV Systems. P.O. Box 818. Arvada, 
CO 80001-0818. (303)420-7777:$14.95.$2.50SIH. 



First product received from this company 



The Seal of Certification is open to all manufacturers of products for the Tandy 
Color Computer, regardless of whether they advertise in THE RAINBOW. 

By awarding a Seal, the magazine certifies the program does exist — that we have 
examined it and have a sample copy — but this does not constitute any guarantee 
of satisfaction. As soon as possible, these hardware or software items will be 
forwarded to THE RAINBOW reviewers for evaluation. 
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Database 



CoCo 1 . 2 & 3 



Baseball Card Catalog 

A couple of weeks ago a friend noticed 
I had a small stack of baseball and football 
cards from my childhood days of card flip- 
ping. A few days later she brought over a 
magazine so we could check their present 
values. To our amazement, we found that 
the handful of cards is worth hundreds of 
dollars — one particular Nolan Ryan card 
topped them all at $150! I knew the cards 
would be valuable someday, but this was a 
shock after having paid little, if any. atten- 
tion to their rising value over the last 20 
years. 

Recently I saw an advertisement for the 
grand opening of a sports-card shop. I also 
learned that card swap meets are held regu- 
larly in my area. Suddenly I saw the money- 
making potential of this old hobby, but I 
needed to organize my records. Then Base- 
ball Card Catalog, a product from the 
Millsoft Company, arrived for review. 

Baseball Card Catalog i s a database that 
is designed to help serious card collectors 
keep track of their baseball cards. The pro- 
gram requires a CoCo 3, two disk drives 
and a monitor (a printer is optional). There 
are also other versions of the program avail- 
able for tape- or disk-based CoCo 1 and 2 
systems. 

The package contains a straightforward, 
easy-to-use five-page manual and one 
floppy disk. I ran the program after making 
a backup copy of the disk and formatting a 
few disks to hold data files. 

First, the title screen appeared. Then. I 
waited approximately a minute while a 
baseball diamond was drawn on the screen 
accompanied by a few bars of music. 1 
could have done without this time-consum- 
ing process. (Use the program 60 times and 
an hour has been wasted watching a title 
screen!) 

Finally, the Main menu is displayed. 
There are several options from which to 
choose, including data entry, deleting, view- 
ing, printing or ending the session. 

There are four categories for data entry: 
Pitcher. Fielder. Record Breaker and Man- 
aging Staff. (Using a separate disk for each 
category saves time when retrieving infor- 
mation.) The program allows you to enter a 
comprehensive record of each player's traits 
and cumulative statistics. In short, you can 



enterall of the information from the back of 
a card. The data is stored in a one-granule 
disk file. 

The Print option allows you to print only 
a single card. I would like to see an option 
for printing all data files. If I go to a swap 
meet, it could be advantageous to have a 
printout of all cards. 

Baseball Card Catalog fills a niche in 
my library. But if you have a large collec- 
tion, the data entry procedure will require 
many hours of typing. In addition to having 
your card information stored on disk, it is 
also advantageous to have your cards in 
binders in an order that facilitates easy 
access. (It is surely less time-consuming. 




I might sell some of my cards in the near 
future, though I stress the word might. After 
all. few cards in the collection show signs of 
future value decreases. And with cards like 
this year's Upper-Deck, autographed No- 
lan Ryan card already a collectible, my 
interest in this hobby has been renewed. My 
collection may now outgrow this program. 

Baseball Curd Catalog works as adver- 
tised, but it would have more versatility if 
the heart of the program, the database, used 
a better data storage/retrieval technique. 

(The Millsoft Company, Box 2377, Ama- 
gansett, NY 11W0; 516-324-7953; $18.95) 

— Jamie Hensen 



Graphics 



CoCo 3 



DIO Fonts 

Two products from Coless Computer 
Design — MioClip Art and D 10 Fonts — are 
among the best CoCo products I've seen in 
the past five years. (See the review of MIO 
Clip Art in this issue of THE RAINBOW.) 

DIO Fonts is an add-on to the Max- JO 



desktop publishing program. Sooner or later 
Max-10 users break down and buy addi- 
tional font sets to experience the full flexi- 
bility of this excellent product. However, 
even with the full add-on sets from Color- 
ware, there has always been room for fur- 
ther expansion — and a strong need for 
some very specific additional items. 

Walter Bayer of Coless Computer De- 
sign was involved in some of the work that 
led to Max-10, and he enthusiastically sup- 
ports it. He produced DIO Fonts to fill some 
of its gaps. There are "only" 19 fonts in this 
package, but they provide an excellent 
sample that may be used immediately with 
the standard Max-10 program or used to 
supplement the Colorware font offerings. 

By the term supplement. I have in mind 
such useful items as Woodhaven 8 Point, 
which fills out the size variety of this popu- 
lar and useful font family. Other fonts where 
DIO Fonts fills out partial families include 
Venice and Digital. Oil) Fonts' Writing 12 
provides an alternative freehand script to 
the one in the older group. If your desktop 
publishing efforts include some simulated 
freehand correspondence between two 
people, the slight differences between these 
two freehand-like fonts might be an artistic 
need rather than just an affectation. 
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Dio Fonts also includes a Times Roman 
font family, a Block family, and Display 
(an alternative block style). Peignot. also 
provided over a range of sizes, is hard to 
describe. I think of Peignot as an informal 
cross between Block and Woodhaven. but 
you might think otherwise. 

My son's class project in junior high last 
year required him to create a six-page 
newspaper that simulated our town news- 
paper as it might have appeared 70 years 
ago. but all of the stories and editorials had 
to be written by him and his partner. Without 
Max-10 he could not have done it. Before 
this project I thought having a font library 
was rather silly. With requirements such as 
a different typeface for the sports, editorial. 
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and news pages, for each author, and for 
headlines, classified ads, etc., this project 
made me realize why font libraries exist. 
The Coless Computer Design package is a 
welcome addition to this library. 

The main value of this package is that it 
Finally provides Max-10 with a good Zapf 
Dingbats 1 2 set. For those who do not know 
what this is. the name Zapf Dingbats (usu- 
ally provided in 12 point) is reserved for a 
graphics font of small, miscellaneous sym- 
bols often needed inside text. Such symbols 
include the characters for the four card suits 
used in bridge columns, a Maltese cross, 
male and/or female figures, a check mark, a 
bell, a pointing hand, a martini glass and a 
small watch. These symbols also include 
editing and arrow characters. Do not con- 
fuse a Zapf Dingbats font with clip art — 
Zapf Dingbats are much smaller and serve 
a distinctly different purpose. Zapf Ding- 
bats are used inside the text and take up one 
character position per symbol. 

In summary, this font set is useful, works 
properly with the other Max-10 elements, 
and is quite inexpensive. I highly recom- 
mend it. especially after learning that Mr. 
Bayer provides immediate technical sup- 
port for any problems you might have. My 
problem was a defective disk that caused 
his loading program to crash. We traced the 
problem to a badly done backup procedure, 
and his willingness to go through a step-by- 
step process is one more plus for an already 
excellent package. 

(Coless Computer Design, 1917 Madera 
St., #8, Waukesha, Wl 53186; 414-549-0750; 
$14.95, plus $3 S/H) 

— H. Larrv Elman 



Graphics 



CoCo3 



GrafExpress 1.0 

Softronics Vanguard has introduced its 
first offering to the CoCo community, and 
what an offering it is. GrafExpress l.o is a 
graphics/sound system that can help you 
when creating games and many other types 
of programs. 

GrafExpress comes with a well-written. 
38-page manual that provides great detail on 
using the various programming features. 
Section 1 of the manual deals with general 
information about the system. Section 2 
explains how to use GrafExpress with BAS- 
IC. Section 3 details how to use GrafEx- 
press within assembly-language programs. 
And the final section reviews the applica- 
tion programs included with the package. 



To take advantage of this program's 
features you must have a CoCo 3, a disk 
drive and one joystick. GrafExpress sup- 
ports both composite and RGB displays, 
joysticks with or without a Hi-Res interface 
and the CoCo 3's high-speed operation. 

After making a backup of the GrafEx- 
press disk, you can run the introductory 
program that showcases some of the capa- 
bilities of this programming system. These 
include 12 different graphics screen sizes 
with horizontal resolution from 128 to 320 
pixels and vertical resolution from 192 to 
225 lines per screen, fast-drawing com- 
mands, multiple-screen animation, screen 
scrolling, an 8-octave/4-voice music syn- 
thesizer, sprite animation, object-collision 
checking, and high or low priorities for the 
sprites. The sprite priorities allow you to 
choose whether an animated sprite appears 
to be drawn (or moved) in front of or behind 
another sprite. With the GrafExpress sys- 
tem you can also create windows on a 
screen. You can then move the windows on 
the screen, copy from one window to an- 
other, and turn the windows on or off. You 
can also set a screen's border color, select 
fast or slow CPU operation, turn text echo- 
ing to the screen on or off, select different 
text font sizes, turn sprites on or off and 
define music waveforms. 




Three application programs are included 
with GrafExpress: An Intro program. Pic- 
Mtiker and Wave-Maker. Pic-Maker is a 
graphics editor that allows you to create 
pictures pixel by pixel with a joystick. From 
a choice of 1 6 different colors, you can set a 
pixel, draw a line, and draw either a box 
outline orabox filled with one of the colors. 
There are also provisions for saving, load- 
ing and killing picture files. A Directory 
command is available for checking the file- 
names on a disk. Pictures created with Pic- 
Maker can then be used later with the 
GrafExpress system as simple pictures or 
animated (or non-animated) sprites. 

Wave-Maker is used to create wave- 
forms for any music you might want to use 
in your program. With the joystick, you can 
set the volume, frequency, decay rate, tempo 
and duration of a note. In addition, you can 
select the weights for the eight harmonics 



that make up a waveform for the note. A 
representation of the waveform is displayed 
on the screen, and a Max command allows 
you to optimize a waveform if some of the 
weight settings cause distortion or "clip- 
ping" of the harmonics when a note is 
played. There is no provision for saving or 
loading the waveform harmonics or any of 
the other values you may use in Wave- 
Maker, so you must write them down if you 
plan to use them later. 

In addition to performing their primary 
functions, the three included application 
programs provide concrete examples for 
using GrafExpress. 

The GrafExpress system does not replace 
BASIC, but augments it. With 49 commands 
to learn, GrafExpress may be a little intimi- 
dating to the novice or inexperienced pro- 
grammer. To the more experienced, 
however, GrafExpress can be a great bene- 
fit since the author explains how to imple- 
ment the GrafExpress system in both BASIC 
and assembly language to achieve mul- 
tiple-screen animation, multiple waveforms 
and up to 255 pictures, screens, sprites or 
windows. 

I found it quite enjoyable and rewarding 
to use the GrafExpress system, especially 
when I could move my graphics creations 
around the screen with sound and/or four- 
voice music. With some practice and pro- 
gramming time, it is possible to create 
impressive games and programs for the 
CoCo 3. 

If you want to market a program created 
with GrafExpress, you must understand 
that only those of you who own the GrafEx- 
press system will be able to use that pro- 
gram. You may discuss with the author the 
possibility of licensing a program with the 
GrafExpress system included. 

(Softronics Vanguard, 605 Evergreen 
Drive, Holmen, WI 54636; 608-526-9226; $35) 

— Richard L. McNabb 
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CoCo 3 



M10 Clip Art 



After almost 1 years of writing soft ware 
reviews, I've learned that some products 
are both fun to experiment with and easy to 
review because they take little work and 
give much pleasure. Among the best of 
these products is a set of clip art from Coless 
Computer Design. 

The M 10 Clip Art package is intended for 
use with the Max-10 home publisher. It 
contains 300 separate pieces of clip art pack- 
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Subscribe to these convenient services 
and receive each month's programs in a 
ready-to-run form. No more long tedious 
hours wasted typing! No more red eyes 
and sore fingers! All you do is load and run, 
using the current issue of THE RAINBOW as 
documentation. 

OS-9 programs are available too! One side of 
the RAINBOW ON DISK is formatted for the 
OS-9 operating system (OS-9 pro- 
grams cannot be put on tape) so 
you can get all the great pro- 
grams in the magazine, 

A one-year subscription 
to THE RAINBOW and RAINBOW 
ON TAPE is only $91 in the U.S., 
$1 08 in Canada, $1 53 foreign sur- 
face rate and $188 foreign airmail. 

A one-year subscription to THE 
RAINBOW and RAINBOW ON DISK is 
only $115 in the U.S., $138 in Canada, 
$1 83 foreign surface rate and $218 foreign 
airmail. U.S. currency only. 




Back issues of both RAINBOW ON 
TAPE and RAINBOW ON DISK are also avail- 
able! (see our back issue ad in this issue) 
RAINBOW ON TAPE back issues 
are available beginning with the April 
1 982 issue. A single copy of RAINBOW 
ONTAPE is $1 within the U.S., $1 2 in all 
other countries. The annual subscription 
for RAINBOW ON TAPE is $80 within the 
U.S.;$90 in Canada; and $105 for all other 
countries. U.S. currency only. 

RAINBOW ON DISK back issues are 
available beginning with the October 1 986 
issue. A single copy of RAINBOW ON 
DISK is $12 within the U.S., $14 in 
Canada, $16 in all other coun- 
ries.The annual subscription for RAIN- 
BOW ON DISK is $99 within the 
U.S.;$115 in Canada; and $130 for all 
other countries. U.S. currency only please. 

Subscribe today and start enjoying THE 
RAINBOW and your CoCo the easy way, 
without the fuss! 



and Save Money 



Yes! Sign me up for a joint 1-year subscription (12 issues) to: 

□ THE RAINBOW and Rainbow on Tape □ THE RAINBOW and Rainbow on Disk 

□ New □ Renewal (attach labels) 



Name _ 
Address 

City 

State 



Zip 



□ My check in the amount of is enclosed. 

charge to: □ VISA □ MasterCard □ American Express 

Account Number 

Expiration Date Signature 



Use our convenient subscription envelope inserted in this magazine. For credit card orders call(800) 847-0309. 9a.m. to 5 p.m. EST. 

All other inquiries call (502) 228-4492 

* Payment must accompany order, we do not hill. U.S. currency only, please. Kentucky residents add 6% sales tax; Canadian residents . 7% GST. Please 

allow 6 to 8 weeks for delivery of first copies. All subscriptions begin with the current issue. 

Please note : While group purchases of RIANBOW ON TAPE and RAINBOW ON DISK are permitted (and multiple subscriptions are even discounted, if purchased 

in one order from a club), no license to make copies is conveyed or implied. Unauthorized coping of any copyright product is strictly illegal. 



aged on five flippy disks. For those of you 
who have two-sided drives, please remem- 
ber these are flippy disks, not floppy disks. 
If you forget that you are working with 
flippy disks, you may wonder why you 
can't get to half of the files. They are 
accessible — just flip the disk over. Any- 
how, five disks and a good manual at this 
price is an amazing bargain. 

Most clip art users in our local club print 
the art so they can view it at their leisure 
rather than using the often-provided View 
program. Coless Computer Design provides 
a manual with all 300 clip-art designs printed 
for your convenience. With 300 designs to 
choose from, a view program might be just 
too unwieldy, and I like their solution. 

Coless Computer Design has always 
provided excellent technical support for 
their products — even by phone — but it 
was not needed at all for this package. 
However, while talking to Mr. Bayer (Co- 
less owner) as part of a review for a com- 
panion product (DID Fonts), he remarked 
that he has over 1500 clip art items that can 
be used with Max-10 if simply moved from 
one format to another. He put in a plug for 
his CHI PagesE, which he used to move the 
300 images in this package to Max- 10 formal 
from the more-packed format his products 
use. I immediately bought CHI PagesE. 
Although it is a full graphics program, my 
interest for this review is only in the clip-art 
moving/reformatting utility. 

I disagree with Mr. Bayer on one point, 
however. He said that if a user has the Clll 
PagesE clip-art-format moving utility, 
nothing else is needed. This statement pre- 
sumes greater artistic ability than most of us 
have and also undervalues the excellent 
artistry in the 300 samples provided. 

Putting any of these clip-art items into 
your Max-10 text is simplicity itself — 
about three menu-driven mouse clicks is all 
it takes. And this is the first clip art I * ve used 
that is of sufficient quality that I could take 
pleasure in using the expand/shrink/resize 
options. 

The 300 clip-art images include symbols 
for almost every known holiday in North 
America, both civic and religious. The more 
well-known holidays (like Christmas) have 
whole collections of images. Also included 
are a number of patriotic and military 
symbols. 

There is a full, 26-letter illuminated al- 
phabet for those who want to begin text 
chapters in a manner reminiscent of monks 
hundreds of years ago. Don't laugh. I found 
this, plus shrink/expand, too tempting, and 
I spent almost an hour playing with the 
selections in just this one section! 

Another disk contains the entire set of 
zodiac signs and the symbols of the major 
political parties. (Is this possible proof that 



politicians are just modern astrologers?) 
The normal collections of office symbols 
and academic symbols are also present. 
Two of my favorites are an angry-looking 
teacher who seems to come from the 
"Archie" comic strip and adisgusted parent 
examining a report card. 




MCLIP 



Transportation and sports are covered 
with about two dozen images. There are a 
dozen or two animals and all sorts of faces, 
including a recognizable Marilyn Monroe. 
As for quality, I printed many of these 
images on my NX- 1 000 and was pleased with 
the results. 

Adding the Mio Clip Art package to a 
Max-10 collection is a must for the serious 
CoCo user. 

(Coless Computer Design, 1917 Madera 
St., #8, Waukesha, Wl 53186; 414-549-0750; 
$19.95, plus $3 S/H) 

— H. Larry Elman 



Home Help 



CoCo 1 . 2 & 3 



parties should contact The Trading Post for 
more information. 

One problem with printing envelopes on 
a standard printer involves feeding the 
envelopes through the printer. As the docu- 
mentation that comes with Envelope Writer 
makes clear, you should use special tractor- 
feed envelopes if you are using a dot-matrix 
printer. These envelopes are available at 
most office/computer-supply outlets. Most 
daisy-wheel printers can handle standard 
envelopes, but it wouldn't hurt to use the 
tractor-feed envelopes if your daisy wheel 
can handle it. 



Envelope Writer 

Many computer owners use word proc- 
essors to handle daily correspondence. Some 
owners go further by printing return-ad- 
dress labels to affix to the envelope. Enve- 
lope Writer goes beyond this in an attempt 
to make it easier to print single envelopes 
for personal or business mail. Whereas 
businesses, clubs and other organizations 
often use mailing-list programs to create 
many address labels. Envelope Writer of- 
fers a way to print a return address and a 
recipient's address on one envelope at a 
time. 

While The Trading Post indicates it 
carries a CoCo 2 version of Envelope Writer, 
the version we received for review is in- 
tended for a CoCo 3 with one disk drive and 
a Tandy printer. Therefore, specific points 
made in this review are for the CoCo 3 
version only. I assume the CoCo 2 version 
also works with the CoCo 1 , but interested 
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Envelope Writer is written in machine 
language, which may make it fairly speedy. 
Of course speed isn't a real concern with 
this type of program — the limiting factors 
are that you'll be typing the addresses and 
the printer can only go so fast, and machine 
language can't correct these limitations. 

Of more immediate concern, the pro- 
gram uses Tandy-specific printer codes for 
typestyle changes. Envelope Writer allows 
you to independently select from normal, 
elongated, condensed, elite and bold types- 
tyles for the return and recipient's addresses. 
If you don't own or use aTandy printer that 
supports these codes (newer Tandy printers 
don't), you are limited to whatever typesty- 
les you can manually set with your printer. 
In addition, both addresses will be in the 
same typestyle. As the Tandy-specific codes 
are hard-coded into the machine-language 
program, it is difficult indeed to alter them, 
and downright impossible if you are not 
familiar with disk-editing programs. Enve- 
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lope Writer should include some form of 
set-up program for those using more-stan- 
dard printers. If nothing else, it should be 
written in BASIC so those who know how 
can edit them at will. Again, speed is not 
important enough in this case to forego 
such fundamental flexibility. 

As most people know, envelopes come 
in several different shapes and sizes. Enve- 
lope Writer does allow for this — the user 
has control over tab (margin) settings and 
vertical placement for the return and recipi- 
ent's addresses. In addition, the vertical 
spacing required for tractor-feed envelopes 
is adjustable. 

The only spacing problem I encountered 
was with the tab settings. Different typesty- 
les for the recipient's address cause the 
address to be printed at different horizontal 



positions — the program positions the print- 
head based on the width of characters in the 
chosen typestyle. I created some pretty 
unusual-looking envelopes (not to mention 
wasted a few) because of this. To standard- 
ize address placement. Envelope Writer 
should use the "normal" typestyle when 
adjusting the printhead position, regardless 
of the chosen style. 

After you load and execute the program, 
the main entry screen appears. It is on this 
screen that you enter the name and address 
for the addressee. Upper- and lowercase 
characters are visible onscreen (at least 
with the CoCo 3 version). Six lines are 
provided for the address. Pressing ENTER 
after the sixth line automatically calls the 
print routine and. assuming all else is set 
correctly, the envelope is printed. 



Plug-N-Go... 



* 7 Color 
Printer! 



NX-1001 

MULTI-FONT 




RAINBOW 

NX-1020 

This next generation color printer sets new 
standards in color printer performance... 225 
cps, 4 NLQ fonts including Script, plus a new 
high speed draft font; but the enhancements 
don't stop there. Add a 1 6k buffer, a special quiet 
mode, top feed, bottom and rear tractor, and the 
list goes on. Seven on-demand colors, 8 color 
graphics modes, Epson and IBM emulation for 
maximum software compatibility. Virtually 
everything desired in a printer is here - speed, 
color and versatility at an affordable price with a 
2 year warranty. 

OUR PLUG W GO FOR THE COCO 
SYSTEM INCLUDES: 

• NX-1020 Rainbow Multi-Font Printer 
•Blue Streak Ultima $Q A f\ OR 
•Software Support Disk C.*+\j 

• Color Super Gemprint >S10 Shipping & Insurance 



This 

enhanced version of 

the legendary NX-1000TI is the 

latest low-cost high-performance printer 

from Star Micronics. Fully featured with 4 NLQ 

plus a draft font. 10 character sizes from 

subscript to quadruple size, 4k buffer, 180 cps, 

friction and tractor feed, and much much more. 

Backed by a 2 year warranty. Epson and IBM 

emulation modes for maximum software 

compatibility. A performer so versatile you may 

never exhaust it's creative possibilities. 

OUR PLUG W GO FOR THE COCO 
SYSTEM INCLUDES: 

• NX-1001 Multi Font Printer 

•Blue Streak Ultima $HQQ88 

•Software Support Disk v 100 

♦S10 Shipping & Insurance 



Order Your System Today... Call (513) 885-5999 

All Dayton Associate's products have a 30 day moneyback guarantee. 



DAYTON ASSOCIATES --; INC. ^tSSST" 

9644 Quailwood Trail • Spring Valley, Ohio 45370 Ohio residents add 6.5% sales ia* 

Shipping charges lo Canada. PR.. HI. AK. APO. FP0 are double Triple charge lo all other countries CO" add $4.00 
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Entering a slash at the main entry screen 
takes you to a menu from which you can set 
new defaults for the return address, spac- 
ing, typestyles to be used for the return and 
recipient addresses, and printer speed. Af- 
ter you change a default, the system suppos- 
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edly saves it in a file named FILE. DAT. This 
appears to be intermittent at best. On sev- 
eral occasions, I changed some defaults 
(which should have been saved), turned the 
power off and back on, and reran the pro- 
gram only to find the settings were not 
exactly as I had left them. (Oh. some were 
right, but others weren't.) Envelope Writer 
does come with a BASIC program called 
RESET that sets all defaults back to their 
original states by creating a new FILE. DAT 
file. 

No provision is made for editing either 
the return address or the recipient's ad- 
dress. This could be frustrating in situations 
(home or small business) in which more 
than one person sends correspondence via 
the mail. It is sorely missed when entering 
information for the addressee — if you 
make a mistake, you must start over. And if 
you press ENTER after that sixth line, your 
CoCo will faithfully print the envelope, 
useless as it is. 

Along this line, another missing feature 
is file I/O. You cannot save a database of 
addresses, which could make this program 
extremely useful. Nor can you load ad- 
dresses from a word-processor file. 

Computers are great for situations in 
which they can make a task more efficient. 
But for the time and trouble involved. 
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Envelope Writer offers no advantage over 
using a word processor for addressing single 
envelopes. In its current form. I find it 
difficult to recommend Envelope Writer to 
anyone — especially at its current price. 

(Trading Post, P.O. Box 3453, Carbondale, 

IL 62902-3453; 618-457-5258; $17.95, $3 S/H) 

— Cray Augsburg 



Utility 



CoCo3 



BASIC Windows 2.0 

BASIC Windows is a great, new program 
for your 5 1 2K CoCo 3 with one or more disk 
drives. The program is supplied on a single 
514-inch nonprotected disk, so make a backup 
copy for safe keeping. The disk contains a 
BASIC boot program and the 100-percent 
machine-language windows program. BAS- 
IC Windows creates either two or four win- 
dows that can be used to run up to four 
separate BASIC programs simultaneously. 
Don't expect the screen to be divided into 
two or four windows — you actually get up 
to four separate screens you use in the 
normal way. Each screen is identified as 
Window 1 . Window 2. Window 3 or Win- 
dow 4. You step through each window by 
pressing the down arrow key and either F 
(forward) or R (reverse). 

To get the program up and running, 
simply type RUN "BOOT" and press ENTER. 
You are then asked if you want all four 
windows activated or just two windows. 
Next, you are asked if you want the win- 
dows mirrored. Mirroring a window allows 
it to communicate with its "mirror." With- 
out this function operating, the programs 
running in each window are unaware of 
each other, which can cause programming 
problems. The last question asks if you 
want to run the high-speed poke. Since 
some programs won't run at the higher 
speed, you have the option of turning it off. 
Once all three questions have been an- 
swered, the main machine-language pro- 
gram loads and automatically executes. 

After the title screen appears, you see the 
first window screen, identified as Window 
1. During my experimentation with BASIC 
Windows. I tried the program with CC3-D0S 
and ADOS-3 — both were fully supported. 
Just remember to load any operating sys- 
tem other than Disk BASIC before trying to 
run BASIC Windows. 

A command in BASIC Windows 2.0 al- 
lows you to lock out a particular window, 
which gives more processing time to the 
other active windows. You can also set a 



window so your printer functions with that 
particular operating program. The author 
has wisely provided a priority level func- 
tion as well by using the command 
A-USRSLv], where x is between 1 and 255. 
The higher the number, the more priority 
the CPU gives to the program running in a 
specific window. This handy function lets 
you decide which program will have the 
most priority. If you forget the priority level 
selected for a program, you can use 
A-USR9[0] for a reminder. If you don't 
specify a priority level, all operating win- 
dows share equal processing time. 

The 5-page instruction sheet contains 
very useful information on techniques you 
can use to enhance the usefulness of this 
program. I tried running Radio Shack's 
EDTASM in one window and some BASIC 



games in three other windows. All of these 
various programs worked fine. Then, I tried 
Mikeyterm and it locked up the computer. 
You will have to experiment to see which 
other machine-language programs run with 
your computer. 

I am impressed with BASIC Windows. It 
works as advertised and provides a great 
way to capitalize on the extra memory in the 
CoCo 3. 1 love the ability to load four of my 
favorite games and switch between them 
without having to quit one to play the next. 
BASIC Windows is a program that CoCo 3 
users will love to have in their bag of tricks. 

(KB Enterprises, 435 Brightwaters Dr., 
Cocoa Beach, FL 32931; 407-799-3253; $34.95) 

— Jerry Semones 



...For the CoCo 



The Smallest, Sj 

Fastest Seri« 
Converter 

7 Switchable Ban 
300«600«12uf 

Use this "smart'cam/oconnecta Centronics parallel 
printer to any vermin CoCo or use it to improve 
performance of your current printer. The cables are 
long-life, high quality shielded cables with moulded 
plugs for extrajfqrability. 



300* 9600 -19201 



Software Support Disk $ 19 9 

(free with purchase of printer) 



TYPE 

SELECTION/ 

TUTORIAL 

Online instructional program that will 

select 24 special features ol your 

printer or display metltods to 

incorporate them into your programs 



HI-RES 

SUPER 

GEMPRINT 

Disk sotttvare that mil 

transfers Hscreen 1.2.3 or 4 

picture screen to printer 

Grey level shading tor color 



SUPER 
GEMPRINT 

Will transfer a Pmode 0.12. 3. or 

4 picture screen to printer 8'xll' 

hardcopy Black/white, white/black 

or grey level shading tor color 



COLOR 

SUPER 

GEMPRINT 

Transfers color screens to 

Color NX- 1020. 8'xlV 

hardcopy <n any 

Pmode or Hscreen mode 



Order Your System Today... Call (513) 885-5999 

All Dayton Associate's products have a 30 day moneyback guarantee. 



DAYTON ASSOCIATES hT, INC. 



9644 Quailwood Trail • Spring Valley, Ohio 45370 

Shipping charges to Canada PR. HI. AK APO. FPO are double Triple charge to all olher countries 



\ is) A Wt-tft .Hn|i!cl wilhiri 
IrH-cfWilitU'iil.tl 1 S 

Ohio residents add 6 ">" ■ sate tax 
COD add H00 



August 1991 THE RAINBOW 55 



by H. Allen Curtis 



56 



THE RAINBOW August 1991 



The ultimate 
shoestring 
desktop 
publisher for 
the CoCo 3 




ltralace: 



The Epson Version 



Last month we saw the major listing for 
Ultralace. As explained then, there are two 
versions of this program: One version is 
designed for Tandy-standard printers and 
the other is for EpsonABM-compatible print- 
ers. Because there wasn't room, we printed 
only the Tandy version last time. This month 




H. Allen Curtis lives in Williamsburg. Vir- 
ginia. He is interested in 17th and 18th 
century history and enjoys hiking through 
the colonial capital. He balances past and 
present with his computer work. He can be 
contacted at 172 Dennis Drive, Will- 
iamsburg, VA 23815, (804) 229-7086. Please 
include an SASE when requesting a reply. 



is devoted to the listing for the Epson ver- 
sion. 

Enter the listing for ULE as it appears 
here, and save it to the Ultralace File disk 
we created before. Then check last month 's 
installment for optional changes you can 
make. Also, limited instructions for using 
Ultralace were given last time. Both 
versions. ULT and ULE, appear on this 
month's RAINBOW ON TAPE/DISK. 

In the Future 

We've presented all the listings required 
for the Ultralace desktop-publishing sys- 
tem. In the final installment next month, 
we'll cover actual operation of Ultralace. 

In the meantime, three font-file disks are 
available from me at the address given 
above: Fonts T through Y ($5), Fonts J 
through Y (Si 2). and Fonts A through Y 
($19). Please include payment to me by 
check or money order. Q 





7 4 

10 ........... 176 

16 ,.104 

26 ..,.209 

34 ............ 77 

52 .......... 200 

70 89 

80 1 

94 16 

104 63 

122 14 

130 -.** 

142 145 

154 .....60 

168 21 



The Listing: ULE 

1 PCLEAR1:CLEAR6000:CMP:WIDTH40: 
CLS3:GOSUB410:W-640:H-3:F1$-"ABC 
DEFGH":PF-VARPTR(F1$):PF-256*PEE 
K(PF+2)+PEEK(PF+3):G0T015 

2 P$-RIGHT$(STRJ(I).l)+"/HRl":Q$ 
-RI GHT$(STR$( I ).l)+"/HR2": RETURN 

3 RENAMEF$+"L"+P$T0"L1/BIN":RENA 
MEF$+"L"+Q$T0"L2/BIN": RETURN 

4 P0KE&HFFA2 . &H70 : L0ADM"L1" : POKE 
&HFFA2.&H71 : L0ADM"L2" : RETURN 

5 RENAME"L1/BIN"T0F$+"L"+P$:RENA 
ME" L2/BIN"T0F$+"L"+Q$: RETURN 

6 FORI-0TO29:POKEI+&H1321.PEEK(K 

+I):NEXT:RETURN 

7 K-&H135F:G0SUB6:P0KE&H127F.1:P 
OKE&H1283.&H50:POKE&H12DE.0:POKE 
&H1263.&H10:POKE&H1280.&H21:GOSU 
B404:FORI-1TO4:GOSUB2:GOSUB3:GOS 
UB4 : POKE&HFFA2 . &H7A:G0SUB5 : EXEC& 
H12CB:NEXT:RETURN 

8 K-&H1341:G0SUB6:P0KE&H127F.&H1 
5:POKE&H1283.&H3C:POKE&H12DE.0:P 
OKE&H1263.0:POKE&H1280.&H1E:GOSU 
B404 : F0RI-1T04 : G0SUB2 : G0SUB3 : REN 
AMEF$+"R"+P$T0"R1/BIN":RENAMEF$+ 
"R"+Q$TO"R2/8IN" 

9 G0SUB4:P0KE&HFFA2.&H72:L0ADM"R 
1 " : POKE&HFFA2 . &H73 : L0ADM"R2" : POK 
E&HFFA2.&H7A:GOSUB5:RENAME"Rl/BI 
N"TOF$+"R"+P*:RENAME"R2/BIN"TOF$ 
+"R"+Q$:EXEC&H12CB: NEXT: RETURN 

10 K-&H1341:GOSUB6:POKE&H127F.&H 
29:P0KE&H1283.&H28:P0KE&H12DE.&H 
12:POKE&H1280.&H1E:GOSUB404:FORI 
-1T04 : P$-RIGHT$(STR$( I ) . 1 )+"/HR" 
:RENAMEF$+"l"+P$TO"L/BIN": RENAME 
F$+"M"+PSTO"M/BIN" : RENAMEF$+"R"+ 
P$TO"R/BIN" 

11 POKE&HFFA2 . &H70: LOADM"L" : POKE 
&HFFA2 .&H71 : LOADM"M" : P0KE&HFFA2 . 
&H72 : LOADM"R" : P0KE&HFFA2 .&H7A : RE 
NAME"L/BIN"TOF$+"L"+P$ : RENAME"M/ 
BIN"TOF$+"M"+P$:RENAME"R/BIN"TOF 
$+"R"+P$:EXEC&H12CB:NEXT 

12 POKE&HFFA2.&H72:LOADM"DMENU/H 
R1:0":POKE&HFFA2.&H7A: RETURN 

13 * 

14 • 

15 HCOLOR3.0:ON BRK GOT0332 



190 ............83 

212 126 

222 158 

238 13 

248 189 

260 3 

272..... 195 

292 92 

304 94 

312 72 

318 -.235 

328 125 

338 148 

350 • 169 

360 ..........153 



372.. 148 

380.—... -4 

390.. 114 

400 .......... 10 

410 - 76 

422..... ....96 

436 ..:......... 192 

446 ........... 253 

458... 90 

474 198 

482 .......... 206 

496 .....15 

506.............. 46 

END ......... ...24 



16 LOADM-MLR" : POKE&HFFA2 . &H70 : LO 
ADM"DMENU/HRl":POKE&HFFA2.&H71:L 
0A0M"DMENU/HR2":P0KE&HFFA2.&H77: 
LOADM"FMENU/HRl":POKE&HFFA2.&H7A 

:EXEC&HF00 

17 POKE150.18:POKE55455.65:POKE5 
5456.66:POKE55232.0:POKE55318.20 

18 ON ERR G0T022 

20 K$-K$+"C":A1-PEEK(VARPTR(K$)+ 
2):A2=PEEK(VARPTR(K$)+3):IFA2<2T 
HENA2-254:A1-A1-1:G0T036ELSEA2-A 

2-2:GOT036 

22 P0KE&HFFA2.&H7A:G0T0492 

24 ' 

26 GOSUB384:POKE&HFFA2.&H70:SAVE 

M"OUT1".&H4000.&H5FFF.&HAC73:POK 

E&HFFA2.&H71:SAVEM"OUT2".&H4000. 

&H5BFF.&HAC73:POKE&HFFA2.&H7A:RE 

NAME"OUTl/BIN"TOF$+"/HRl": RENAME 

••OUT2/B1N"TOF$+ , VHR2":DRIVE0:RET 

URN 

28 EXEC&HF3C:G0SUB384:P0KE&HFFA2 
&H70 : SAVEM"OUT" . &H4000 . &H50FF . & 
HAC73:POKE&HFFA2.&H7A: RENAME"OUT 
/BIN"TOF$+"/HR":DRIVE0: RETURN 
30 GOSUB404:RENAMEF$+'7HR1"TO"IN 
l/BIN":RENAMEF$+"/HR2"TO"IN2/BlN 
••:POKE&HFFA2.SH70:LOAOM"IN1":POK 
E&HFFA2 . &H71 : L0ADM"IN2" : POKE&HFF 
A2.&H7A 

32 RENAME" INl/BIN"TOF$+"/HRl": RE 
NAME"IN2/BIN"TOF$+"/HR2":DRIVE0: 

RETURN 

34 GOSUB404:RENAMEF$+"/HR"TO"IN/ 

BIN":POKE&HFFA2.&H70:LOADM"IN":P 

OKE&HFFA2.&H7A: RENAME" IN/B I N"TOF 

$+"/HR":DRIVE0:EXEC&HF71: RETURN 

36 L2-1:P-176:DIMF$(84).M(84):P0 

KE&HFFD9.0 

38 C1-63:PALETTE0.63:PALETTE1.63 

:PALETTE2.63:PALETTE3.0 

40 EXEC&H1000:POKE&HE6E4.&HE6:HS 

CREENH:POKE&HE6E4.&HE7:HBUFF1.39 

9:HGET(8.152)-(9.152+D).l 

42 HBUFF4.3200:HBUFF5,2104:HGET( 

0.0)-(639.19).4:HBUFF6.1520 

44 EXEC&HF00:HGET(48.16)-(63.31) 

.5:EXEC&HF00:DX-16:DY-16 

46 PALETTE1.0 



48 T-V:L-U:K$-"F":G0T0138 

50 IFZ-U AND L+4>W-1THENL-U:IFT< 

P THENT-T+D+1 

52 IFZOU AND L+4>W-1THENFL-1 :G0 

T0112 

54 HGET(L.T)-(L+1.T+D).1:HLINE(L 

,T)-(L+1.T+D).PSET.BF 

56 POKE&H23.Al:POKE&H24.A2 

58 IFSCI-1THEN420ELSEIFSCI-2 AND 

KS-1THEN428ELSEIFSCI-2THEN432 
60 K$-INKEY$:IFK$-""THEN60 
62 K-ASC(K$):IFK>64 AND KOITHEN 
N-K-64:B-N:HLINE(L.T)-(L+1,T+D). 
PRESET. BF:GOTO106 
64 IFK>96 AND K<123THENN-K-96:B- 
N+26:GOTO106 

66 IFK>47 AND K<58THENN-K-47 :B-N 
+52:GOTO106 
68 1FK>32 AND K<48THENN-K-32: B=N 

+62:GOTO106 

70 IFK>57 AND K<65THENN-K-57 :B-N 

+77:GOTO106 

72 IFK-32THENZ-L+S:IFL+8<W THENH 

LI NEC L.T)-(L+7. T+D). PRESET. BF: L- 

L+S:GOTO50ELSEHLINE(L.T)-(L+1.T+ 

D). PRESET. BF:L-U:IFT<P AND T<191 

-2*D THENT-T+l+D:GOTO50ELSEFL-0: 

G0T0444 

74 IFK-13THENHPUT(L.T)-(L+1.T+D) 

. 1 : L-U 

76 IFK-13 AND T<P THENT-T+1+D:G0 

T054ELSEIFK-13THEN54 

78 IFK-8THENL-2*INTC.5*L):HLINE( 

L. T)-(L+1. T+D). PRESET. BF: I FL>1TH 

ENL-L-2:GOTO50ELSEL-0:GOTO50 

80 IFK-93THEN1FH-1THENSOUND60.9: 

GOTO50ELSEZ-U:HLINE(L.T)-(L+1.T+ 

D). PRESET. BF:IFL+DX-KW THENL=8* 

INT(.125*L):HPUT(L.T)-(L+DX-1.T+ 

DY - 1 ) . 5 : L-L+DX : GOTO50ELSESOUND60 

.9:GOTO50 

82 IFK-94THENHPUT(L.T)-(L+1.T+D) 

,1:IFT>D THENT-T-1-D:GOTO50 

84 IFK-10THENHPUT(L.T)-(L+1.T+D) 

,1:1 FT+D<191THENT-T+D+1 :GOTO50 

86 IFK-91THENZ-U:HPUT(L.T)-(L+1. 

T+D) . 1 : HDRAW"BM"+STR$ ( L )+" , "+STR 

$(T+1+INT(.75*D))+"R4":L-L+4:G0T 

O50:IFL>W-5THENL-L-4:GOTO50 

88 IFK-9 AND L+4<W THENHPUT(L.T) 

- ( L+l . T+D ) . 1 : L-L+4 : GOTO50 

90 IFK-92THENEXEC&H1000:T-V:L-U: 

GOTO50 

92 IFK-4THENHPUT(L.T)-(L+1.T+D). 

1:G0T0128 

94 IFK-12THENHPUT(L.T)-(L+1.T+D) 

.1:1 FT3-0THENT3-1 : L-Tl :GOTO50ELS 

EI FT3-1THENT3-0 : L-T2 : GOTO50 

96 IFK-189THENG0SUB374 

98 IFK-21THENHPUT(U.T)-(W-l.T+.5 

*D),4:HPUT(U.T+.5*D)-(W-1.T+D).4 

:L-U:GOTO50 

100 IFK-95THENI-2*H+2:HPUT(L.T)- 

(L+1.T+D).1:IFL>W*.5THENHGET(U.T 

)-(W-I-l.T+.5*D+.5).6:HPUT(U+I.T 

)-(W-l.T+.5*D+.5).6:HGET(U.T+.5* 

D+1.5)-(W-I-1.T+D).6:HPUT(U+I.T+ 

. 5*0+1.5) -(W-1.T+D).6:GOTO104 

102 IFK-95THENHGET(U+I.T)-(W-1.T 

+.5*D+.5).6:HPUT(U.T)-(W-1-I.T+. 

5*D+.5).6:HGET(U+I.T+.5*D+1.5)-( 
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W - 1 . T+D ) . 6 : HPUT( U . T+ . 5*D+1 . 5 ) - ( W 
-1-I.T+D).6 

104 IFK<>95THENHPUT(L.T)-(L+1.T+ 
D),1:GOTO50ELSE50 
106 HLINE(L.T)-(L+1, T+D). PRESET. 
BF:IFL+M(BXW THENG0SUB126: L-L+2 
*INT(.5+M(B)*.5)+2:IFL>W-1THENL2 
-L-W+l : L-W- 1 :GOTO50ELSE50 
108 IFZ=U THENL-U:IFT<P AND T<19 
1-2*D THENT-T+D+1:G0T062ELSE62 
110 FL-2 

112 IFH-3THENZ1-8*INT(.125*Z) 
114 IFH=1THENZ1=4*INT(.25*Z) 
116 Z-Zl 

118 HGET(Z.T)-(L.T+0).6:HPUT(Z.T 
)-(L.T+D).4:Ll-L-Z:L-U:Z=U:IFT<P 
AND T<191-2*D THENT-T+D+1ELSE44 
4 

120 IFL+LK0THENL1-L1+2:GOTO120 
122 IFSCK>2THENHPUT(L.T)-(L+L1. 
T+D).6:L~L+Ll+L2:L=2*INT(.5*L+.5 
):L2-0ELSEL-U:GOSUB476:KS-KS+1:G 
0T0432 

124 N-FL+1:0N N GOTO50.54.62 
126 HDRAW'BM' , +STR$(L)+' ' . ' '+STR$(T 
)+FJ(B):RETURN 

128 HSCREEN0:CLS:ATTR0.4:LOCATE1 
0.4: PRINT "A: ART-DESIGNS' ': LOCATE 
10.5:PRINT"B: BACK TO SCREEN":LO 
CATE10.6:PRINT"C: CONVERT WPF":L 
OCATE10.7:PRINT"D: DIR" : LOCATE10 
,8:PRINT"F: FONT SELECT 
130 LOCATE10.9:PRINT' 'H: HOUSEKEE 
PING' ": LOCATE10. 10: PRINT' 'I: INPUT 
":LOCATE10.11:PRINT"K: KEYS LIST 
EO":LOCATE10.12:PRINT"M: MARGIN 
SET":LOCATE10.13:PRINT"O: OUTPUT 
":LOCATE10.14:PRINT"P: PRESENT S 
TATUS 
132 LOCATE10.15:PRINT' 'R: RESOLUT 



OR K$-"i"THEN482 
OR K$="k"THENG0SUB3 



ION CHANGE" : LOCATE10 . 16 : PRINT ' 'S: 
SCREEN DUMP' ':LOCATE10. 17: PRINT" 

T: TAB SET":LOCATE10.18:PRINT"X: 
EXIT UltraLace":L0CATE14.18:P0K 

E&H23.A1:P0KE&H24.A2:P0KE&HFFD8. 



134 K$-INKEY$:IFK$=""THEN134 

136 IFK$-"D" OR K$-"d"THENGOSUB3 

26:G0T0128 

138 IFK$="F" OR K$-"f"THENOD-D:L 

1-L:EXEC&HF8E:P0KE&HE6E4.&HE6:HS 



OR K$-"p"GOSUB400:G 




CREEN3:POKE&HE6E4.&HE7:GOSUB170: 
L-L1:EXEC&HF8E:G0T0128 
140 IFK$-"B" OR K$="b"THEN168 
142 IFK$-"H" OR K$-"h"THENG0SUB3 
24:G0T0396 
144 IFK$="I" 
146 IFK$-"K" 
08:GOTO128 

148 IFK$="0" OR K$-"o"THENIFCC=0 
AND HK-0THEN348ELSEIFCC-0THEN34 
6ELSEF$-LEFT$(F1$.HL):DRIVEVAL(R 
IGHT$( F$ . 1 ) ) : F$-LEFT$( F$ . HL-2 ) : I 
FHK=3THENCLS:G0SUB28:G0T0128ELSE 
CLS:G0SUB26:G0T0128 
150 IFK$-"M" OR K$-"m"THENG0SUB2 
18:G0T0128 
152 IFK$-"P' 
0T0128 

154 IFK$-"R" OR K$="r"THENIFH-lT 
HENH-3:U-2*U:W-2*W:T1-2*T1:T2=2* 
T2:G0T0128ELSEH-1:U-.5*U:W-.5*W: 
T1-. 5*T1 : T2-. 5*T2 : G0T0128 
156 IFK$-"T" OR K$="t"THENGOSUB2 
98:G0T0128 

158 IFK$="C" OR K$-"c"THEN252 
160 IFK$-"S" OR K$="S"THENG0SUB3 
24:GOSUB322:IFK$-"l"THENGOSUB7:G 
0T0128ELSEIFK$-"2"THENG0SUB8:G0T 
O128ELSEIFK$-"3"THENPOKE&H13FF.0 
: GOSUB10 : GOTO128ELSESOUND60 . 9 : GO 
T0128 

162 IFK$="A" OR K$="a"THEN330 
164 IFK$-"X" ORK$-"x"THENGOSUB39 
4:IFK$="Y" OR K$-"y"THENCLS3:P0K 
E&HFFD8.0:DR1VE0:ENDELSE128 
166 SOUND60.5:SOUND60.5:GOTO128 
168 P0KE&HE6E4.&HE6:HSCREENH:P0K 
E&HE6E4.SHE7:POKE&HFFD9.0:GOTO20 
2 
170 GOTO204 

172 P0KE&H23.A1:P0KE&H24.A2:G0SU 

B322 

174 IFK$<"0" OR K$>"9" THENSOUND 

60. 10: RETURNELSEK$~" 1"+K$ 

176 GOSUB212 

178 GOSUB216 

180 OPEN "I".#l," FONT "+K$ 

182 FORI-1T084: L 1 NE I NPUT//1 . F$ < I ) 

:NEXT 

184 F0RI-1T084 : INPUTffl ,M< I ) :NEXT 

186 INPUT#l.D.S:CLOSE#l:IFD>7 AN 

D D<11THEND-11ELSEIFD>11 AND D<1 

5THEND-15ELSEIFD>15THEND-23 

188 K-T 

190 T-T+INT(.5*(OD-D)):V-T:IFT<0 

THENT-0:V-0ELSEIFT>P THENT-P-1 

192 IFV>-0THENV-V-D-1:GOTO192ELS 

EV-V+D+1 

194 IFK-0THENGOSUB424:GOSUB250 

196 RETURN 

198 HPUT(16.20)-(111.170).5 

200 GOSUB250 

202 HGET(L.T)-(L+1.T+D).1:GOTO50 

204 P0KE&H23.A1:P0KE&H24.A2:G0SU 

B322 

206 K-ASC(K$):IFK>96 AND K<122TH 

ENK-K-32:K$=CHR$(K) 

208 IFK>64 AND K<90THEN176ELSESO 

UND60.9:GOTO204 

210 POKE&H23.Al:POKE&H24.A2:RETU 

RN 

212 POKE&H23.Al-l:POKE&H24.A2:RE 

TURN 

214 P0KE&H23.A1-2:P0KE&H24.A2:RE 

TURN 

216 POKE&H23.Al-4:POKE&H24.A2:RE 



TURN 

218 G0SUB212:CLS:L0CATE6.8:PRINT 

' 'ENTER TOP MARGIN (0 - 10): ' ' ; :L 

INEINPUTV$:LOCATE6.10:PRINT"ENTE 

R LEFT MARGIN " : : IFV$-" "THENV$-S 

TR$(V) 

220 LOCATE24.10:IFH-1THENPRINT"( 

0-200): ":LOCATE35.10ELSEP 

RINT"(0 - 400): ":LOCATE35.1 



222 GOSUB214:LINEINPUTU$:GOSUB30 

6:V-VAL(V$):U=VAL(U$):IFH-1THENU 

=4*INT(.25*U):Z-U ELSEU-8*INT( .1 

25*U):Z-U 

224 IFV<0THENV=0 

226 IFV>10THENV=10 

228 IF U>W-50THENSOUND60.5:LOCAT 

E10.15:PRINT' 'LEFT MARGIN TOO BIG 

":L0CATE8.16:PRINT"RELATIVE TO R 

IGHT MARGIN! ":L0CATE14. 17:PRINT" 

TRY AGAIN. ":GOTO220 

230 IFU<0THENU=0 

232 IFH-1 AND U>200THENU-200 

234 IFH-3 AND U>400THENU-400 

236 G0SUB212:L0CATE4.12:PRINT"EN 

TER RIGHT MARGIN ( ":320+(H-l 

)*160: " ) : " : :LINEINPUTW$: IFWJ-' ' ' ' 

THENW$=STR$(W) 

238 W-VAL(W$):IFW<U+50THENSOUND6 

0.5:LOCATE9.15:PRINT' 'RIGHT MARGI 

N TOO SMALL" :L0CATE8. 16: PRINT "RE 

LATIVE TO LEFT MARGIN. ":LOCATEl 

4.17:PRINT"TRY AGAIN. " :G0T0236 

240 GOSUB290 

242 CLS:LOCATE6.12:PRINT"DO YOU 

WANT TO CHANGE THE' ' : L0CATE6. 13: P 

RINT"BOTTOM MARGIN? (Y/N) ": 

244 G0SUB322:IFK$-"N" OR K$-"n" 

OR ASC(K$)-13THENL-U:T-V:RETURNE 

LSEIFK$-"Y" OR K$-"y"THEN246ELSE 

SOUND60.5:GOTO244 

246 L0CATE6.16:PRINT' 'DO YOU WANT 

IT AT THE M0ST":L0CATE6.17:PRIN 
T"RECENT CURSOR POSITION? (Y/N) 

":LOCATE6.18:PRINT"IF NOT. IT W 
ILL BE SET TO THE " : L0CATE6 . 19 : PR 
INT"LOWEST POSSIBLE CURSOR POSIT 
ION.":LOCATE37.17 
248 GOSUB322:IFK$-"N" OR K$-"n"T 
HENGOSUB424 : GOTO250ELSE I FKJ- " Y " 
OR K$-"y"THENP-T:L-U:T-V:RETURNE 
LSESOUND65.0:GOTO248 
250 P-V+(D+1)*(-1+INT((192-V)/(D 
+1))):RETURN 

252 GOSUB212:CLS:LOCATE5.8:PRINT 
"FILENAME INCLUDING EXTENSION:": 
L0CATE13.9:LINEINPUTF$:Z$-RIGHT$ 
(F$.2):IFASC(Z$)-58THENDRIVEVAL( 
RIGHTS (Z$.1)):F$-LEFT$(F$.LEN(F$ 
)-2)ELSEDRIVE0 

254 N-I NSTR( F$ ."/"): I FN-0THEN252 
ELSEG$=LEFT$(F$.N)+"DAT" 
256 J-0:IFRIGHT$(F$.3)-"DAT"THEN 
RENAMEF$TOLEFT$(F$.N) + "TXT":F$-L 
EFT$(F$.N)+"TXT" 
258 OPEN "D".#1.F$:FIELD#1. 128 AS 

AS.128 AS B$ 
260 CLOSE//2:OPEN"0".#2.G$ 
262 IFDN-1THEN288ELSEGOSU8210:J- 
J+l:GETf/l.J:C$-A$ 
264 B-I NSTR( B$ . " ] " ) : I FINSTR( A$ . ' ' 
]")>0OR B>0THENDN-1:IFB>0THENB$ 
-LEFT$(B$.B-1)ELSEC$-LEFT$(C$.IN 
STR(C$."]")-1):B$-"" 
266 N-INSTR(C$.CHR$(13)):IFN>0TH 
ENG0SUB286:C$-RIGHT$(C$.LEN(C$)- 
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DELPHI'S 20/20 ADVANTAGE, 
VISIBLY SUPERIOR 



DELPHI 



G 



N 



$20 



$124 



COM 



R V 



$120-$256 



COST OF 20 EVENING HOURS 
OF DOWNLOADS AND CHAT 



On DELPHI'S 20/20 Advantage Plan, you get 20 hours of connect time each month for 
only $20. Additional time is only 2 cents/minute. No other full-featured online service 
even comes close! 

And those are 20 hours of real online fun and productivity. Download files, chat with 
friends, send electronic mail, play multi-player games, and make travel reservations. 



Join DELPHI now for only $39.95 and your first 
20 hours are free. With your CoCo and 
modem: 

• Dial 1-800-365-4636 

• At Usemame: type JOINDELPHI 

• At Password: type COCO20 



DELPHI 

THE WORLD'S PREMIER ONLINE 
INFORMATION SERVICE 



800-544-4005 • 617-491-3393 



Already a DELPHI member? Type GO USING ADVANTAGE 



N):IFC$-""THENC$-B$:GOTO270ELSE2 

66 

268 G0SUB276:C$-C$+B$ 

270 N=INSTR(C$.CHR$(13)):IFN>0TH 

ENG0SUB286:C$=RIGHT$(C$.LEN(C$)- 

N):IFC$-""THEN262ELSE270 

272 GOSUB276:IFDN-1THEN288ELSEGO 

SUB210: J-J+l :GET#1 . J :C$-C$+A$ 

274 G0T0264 

276 1-1 

278 IFLEN(C$)-I OR C$=STRING$( LE 

N(C$).32)THENK-0:GOTO284 

280 K-INSTR(LEN(C$)+1-I.C$," "): 

IFK-0THENI-I+1 :G0T0278 

282 PRINT#2.LEFT$(C$.K-1) 

284 C$=RIGHT$(C$.LEN(C$)-K):RETU 

RN 

286 IFLEFT$(C$.N)-CHR$(13)THENPR 

INT#2." [":RETURNELSEPRINT#2.LEF 

T$(C$.N-1):RETURN 

288 CLOSEffl : PR I NT//2 . C$ : CLOSE#2 : D 

RIVE0:DN-0:GOTO128 

290 IFH=1 ANO W>320THENW-320 

292 IFW>640THENW=640 

294 IFH-1THENW-4MNT(.25*W)ELSEW 

=8*INT(.125*W) 

296 RETURN 

298 G0SUB212:CLS:L0CATE6.8:PRINT 

"ENTER 1ST TAB VALUE: ";:LINEINP 

UTT$:GOSUB304:T1-2*INT(VAL(T$)*. 

5) : IFH-1 AND T1>320THENT1-320ELS 

EIFT1>640THENT1=640 

300 G0SUB212:L0CATE6.12:PRINT"EN 

TER 2ND TAB VALUE: "; : LINEINPUTT 

S:GOSUB304:T2=2*INT(VAL(T$)*.5): 

IFH1 AND T2>320THENT2=320ELSEIFT 

2>640THENT2-640 

302 RETURN 

304 IFTi-'c" OR T$="C" THENT$-ST 

R$(L):RETURNELSERETURN 

306 IFU$-""THENU$-STR$(U):RETURN 

ELSERETURN 

308 CLS:L0CATE2.2:PRINT"F2: 

CALL COMMAND MENU" : LOCATE2 . 
3:PRINT"RIGHT ARROW: MOVE CURSOR 

RIGHT":PRINT" LEFT ARROW: BAC 
KSPACE":PRINT" UP ARROW: MOV 
E CURSOR UP 1 LINE":PRINT" DOWN 

ARROW: MOVE CURSOR DOWN 1 LINE 
310 LOCATE2.7:PRINT"ENTER: 

CARRIAGE RETURN &": L0CATE15.8: P 
RINT"M0VE CURSOR DOWN 1 LINE":PR 
INT" CLEAR: TAB" : LOCATE7 . 
11:ATTR0.4.U:PRINT"KEYS WITH SHI 
FT HELD DOWN";:ATTR0.4 
312 L0CATE2.13:PRINT"RIGHT ARROW 
: DRAW CLIP ART":PRINT" LEFT AR 
ROW: CLEAR LINE" : PRINT" UP ARR 
OW: MOVE CHAR-LINE TOWARD":LO 
CATE15.16:PRINT"CURSOR HALF OF S 
CREEN" : PRINT" DOWN ARROW: UNDE 
RLINE": PRINT" CLEAR: CLEA 
R SCREEN 

314 PRINT" 0: UPPER/L 

OWER CASE":LOCATE4.22:ATTR0.4.U: 
PRINT"PRESS SPACE FOR REST OF KE 
Y LIST": :ATTR0.4:LOCATE4.22:E$=" 
STOPPED BY ANY KEY OR MA 
RGIN":G0SUB322 

316 CLS:LOCATE6.5:ATTR0.4.U:PRIN 
T"KEYS PRESSED AFTER CTRL KEY":: 
ATTR0.4:LOCATE2.7:PRINT"RIGHT AR 
ROW: MOVE CURSOR RIGHT UNTIL"+E$ 
:PRINT" LEFT ARROW: MOVE CURSO 
R LEFT UNTIL "+E$ 
318 LOCATE2.11:PRINT"UP ARROW: 



MOVE CURSOR UP UNTIL "+E$:PR 
INT" DOWN ARROW: MOVE CURSOR D 
OWN UNTIL "+E$ 

320 LOCATE5.22:PRINT"PRESS "::AT 
TR0.4.U:PRINT"SPACE"::ATTR0.4:PR 
INT" TO RETURN TO MENU": : LOCATE1 
2.22 

322 K$-INKEY$:IFK$-""THEN322ELSE 
RETURN 

324 CLS:LOCATE8.10:PRINT"1: 1COL 
UMN/4SCREEN":L0CATE8.11:PRINT"2: 

2C0LUMN/8SCREEN":L0CATE8,12:PRI 
NT"3: 3C0LUMN/12SCREEN":RETURN 
326 G0SUB212:CLS:L0CATE12.8:PRIN 
T"DRIVE NUMBER: " 
328 GOSUB322:K=VAL(K$):IFK>3THEN 
SOUND60. 9 :G0T0328ELSED IRK: PRINT- 
FREE GRANULES:":FREE(K):PRINT" 
PRESS SPACE TO CONTINUE":GO 
SUB322:RETURN 

330 CLS:LOCATE10.8:PRINT"1: NORM 
AL":LOCATE10.9:PRINT"2: DOUBLE W 
IDTH":LOCATE10.10:PRINT"3: DOUBL 
E WIDTH- LENGTH": LOCATE10.il :MI$- 
": MIRROR IMAGE OF " : PRINT"4" :MI 
$:"1":LOCATE10.12:PRINT"5";MI$ : " 
2" : LOCATE10. 13 : PRINT"6" : MI$ : "3" : 
G0T0354 

332 G0SUB394:IFK$="Y" OR K$-"y"T 
HEN334ELSE128 

334 CLS3:POKE&HFFD8.0:DRIVE0 
336 IFERNO-1 AND PEEKUH13FF)<> 
9THENP0KE&HFFA1.121:P0KE&HFFA2.1 
22ELSEEND 

338 IFERN0<25THENAD-&HABAF+ERN0* 
2ELSEIFERNO>26THENAD-&HC290+2*(E 
RNO-27)ELSEAD=&H890D 
340 WIDTH40:LOCATE8.10:PRINT" " : 
:PRINTCHR$(PEEK(AD))CHR$(PEEK(AD 
+1)):" ERROR IN LINE":ERLIN 
342 L0CATE12.14:PRINT"C0NTINUE? 
(Y.N)":G0SUB322:IFK$-"Y" OR K$-" 
y"THENWIDTH40:CLS5:PALETTE0.63:P 
ALETTE1.0:GOTO128 
344 END 

346 GOSUB404:IFHK-3THENGOSUB28:G 
0T0128ELSEGOSUB26:GOTO128 
348 CLS:LOCATE8.10:PRINT"1: SAVE 

FULL SCREEN":L0CATE8.12:PRINT"2 
: SAVE HALF SCREEN" 
350 GOSUB322:IFKS-"1"THENGOSUB40 
4:G0SUB26:G0T0128ELSEIFK$-"2"THE 
NGOSUB404:GOSUB28:GOTO128ELSESOU 
ND60.9:GOTO128 
352 G0SUB322:G0T0128 
354 G0SUB322:K-VAL(K$):IFK<1 OR 
K>6THENSOUND60.9:GOTO354ELSEIFK> 
3THENPOKE&H102A.1:K-K-3ELSEPOKE& 
H102A.0 

356 DK-K:POKE&H1027.K:CLS:EXEC&H 
F00:POKE&HE6E4.&HE6:HSCREEN3:POK 
E&HE6E4.&HE7 
358 G0SUB322:K-ASC(K$):IFK<48 OR 

K>51THENSOUND60.9:GOTO358ELSEK- 
K-48:DX-(K+1)*16:POKE&H1028.2*K+ 
3:IFK>0THEN368 

360 G0SUB322:K-ASC(K$):1FK>96 AN 
D K<123THENK-K-97ELSEIFK>64 AND 
K<77THENK-K-39ELSESOUND60.9:GOTO 
360 

362 POKE&H1029.K:EXEC&H1033:IFDX 
>48THENDX=48 

364 DY-DX:IFDKMTHENDX=2*DX:IFDK 
-3THENDY-DX 

366 IFPEEK(&H102A)-0THENHGET(544 
.96)-(543+DX.95+DY).5:HSCREEN0:E 



XEC&HF00:GOTO128ELSEHGET(640-DX. 

96)-(639.95+DY).5:HSCREEN0:EXEC& 

HF00:GOTO128 

368 IF K>1THEN372 

370 G0SUB322:K-ASC(K$):IFK>96 AN 

D K<116THENK-K-97:G0T0362ELSES0U 

ND60.9:GOTO370 

372 G0SUB322:K=ASC(K$):IFK>96 AN 

D K<107THENK-K-97:GOTO362ELSESOU 

ND60.9:GOTO372 

374 G0SUB322 : K=ASC( K$ ) : I FK-8THEN 

378ELSEIFK-10THEN380ELSEIFK-94TH 

EN382 

376 K$-INKEY$:IFL+4<W AND K$-""T 

HENHPUT(L.T)-(L+1.T+D).1:L-L+4:H 

GET(L.T)-(L+1.T+D).1:HLINE(L.T)- 

(L+1.T+D).PSET.BF:G0T0376ELSERET 

URN 

378 K$-INKEY$:IFL-4>U AND K$-""T 

HENHPUT(L.T)-(L+1.T+D).1:L-L-4:H 

GET(L.T)-(L+1.T+D).1:HLINE(L.T)- 

(L+1.T+D).PSET.BF:G0T0378ELSERET 

URN 

380 K$-INKEY$:IFT+D<191 AND K$=" 

"THENHPUT(L.T)-(L+1.T+D).1:T-T+D 

+1:HGET(L.T)-(L+1.T+D).1:HLINE(L 

,T)-(L+1,T+D).PSET.BF:GOTO380ELS 

ERETURN 

382 K$-INKEY$:IFT-D>0 AND K$-""T 

HENHPUT(L.T)-(L+1.T+D).1:T-T-D-1 

:HGET(L.T)-(L+1.T+D).1:HLINE(L.T 

)-(L+l.T+D).PSET.BF:G0T0382ELSER 

ETURN 

384 IFHK-0THENRETURN 

386 F$-F$+CHR$(HS)+RIGHT$(STR$(H 

F) . 1 ) :HR-HR+1 :HF-HF+1 : I FHR-5THEN 

HF=1:IFHK-1THENHK-0:CC-0:RETURNE 

LSEIFHK-2THENHS-82:U-8:W-416:G0S 

UB516ELSEHS-77:U-16:W-304:GOSUB5 

16 

388 IFHR-9THENHF-1: I FHK-2THENHK- 

0:CC=0:RETURNELSEHS-82:U-0:W-288 

:G0SUB516 

390 IFHR-13THENHK-0:CC-0:RETURN 

392 V=0:L-U:T-V:GOTO250 

394 CLS:LOCATE10.10:PRINT"ARE YO 

U SURE? (Y/N) ":G0T0322 

396 G0SUB322:IFK$<"1" OR K$>"3"T 

HENSOUND60.8:GOTO128ELSEHF-1:HR- 

l:HS-76:IFK$-"l"THENHK-l:U-0:W-6 

40ELSEIFK$-"2"THENHK-2:U-64:W-47 

2ELSEHK-3:U-32:W-320 

398 G0SUB516:G0SUB392:HF-1:G0T01 

28 

400 CLS:L0CATE11.8:PRINT"T0P MAR 

GIN -":V:L0CATE11.9:PRINT"LEFT M 

ARGIN -":U:LOCATE11.10:PRINT"RIG 

HT MARGIN -" ;W: L0CATE11 . 11 : PRINT 

"BOTTOM MARGIN -" : P+D : L0CATE11. 1 

2:PRINT"TAB1 -";T1 : L0CATE11 . 13: P 

RINT"TAB2 -":T2 

402 GOTO320 

404 G0SUB212:CLS:L0CATE12.8:PRIN 

T"FILENAME: ": : LINEINPUTF$:Z$-RI 

GHT$(F$.2):Z1$-Z$:IFASC(Z$)-58TH 

ENDRIVEVAL(RIGHT$(Z$.1)):F$-LEFT 

$(F$.LEN(F$)-2)ELSEZ$-":0" 

406 IFHK-0 OR I1-1THENRETURNELSE 

HL-LEN(Ft)+2:IFHL>8THENF$-LEFT$( 

FS.6):HL-8 

408 CC-1:F0RI-1T0HL:P0KEPF-1+I.A 

SC(MID$(F$+Z$.I.1)):NEXT: RETURN 

410 L0CATE15.4:ATTR3.2.U:PRINT"U 

1traLace"::ATTR2.2:L0CATE8.6:PRI 

NT"THE ULTIMATE SHOESTRING": LOCA 

TE1 1.8: PR I NT"DESKTOP PUBLISHER": 
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ATTR3 . 2 : L0CATE1 1 .12: PRI NT"BY H. 

Allen Curt1s":L0CATEl3. 14: PRINT- 
COPYRIGHT 1990":LOCATE16.4:ATTR3 
,2:RETURN 

412 CLS:ATTR0.4:OPEN"I".#1."STR" 
:FORI-lT06:LINEINPUT#l.ACS:LOCAT 
E4.7+I :PRINTAC$:NEXT 
414 G0SUB212:K$-INKEY$:IFK$-""TH 
EN414ELSEIFK$>"6" OR K$<"1"THENS 
OUND60.5:GOTO414 
416 SK=VAL(K$):KS-1 
418 FORI-lTOSK:LINEINPUT#l.AC$:N 
EXTjCLOSE#1: RETURN 
420 POKE&H23.Al:POKE&H24.A2:IFKS 
<-LEN(AC$)THENK$=MID$(AC$.KS.l): 
KS-KS+1:GOSU8422:GOTO62ELSESCI=0 
:HPUT(L.T)-(L+l.T+D).l:U-UT:GOTO 
50 

422 IFASC(K$)-94THENK$-CHR$(13): 
RETURNELSERETURN 

424 V-192-(D+1)*INT(192/(D+1)):T 
-V: RETURN 

426 IFH-1THENU-4*INT(.25*L):RETU 
RNELSEU~8*INT(.125*L): RETURN 
428 POKE&HFFD8.0:IFEOF(D— 1THEN 
CLOSE#1:POKE&HFFD9.0:SCI-0:HPUT( 
L , T ) - ( L+l . T+D ) . 1 : U-UT : GOTO50ELSE 
G0SUB214:LINEINPUT#1.SK$:P0KE&HF 
FD9.0 

430 IFSK-0THENSCI-0:U=UT:GOTO450 
432 POKE&H23.Al:POKE&H24.A2:IFKS 
<-LEN(SK$)THENK$-MID$(SK$.KS.l)E 
LSE446 

434 IFASC(K$)-91THENK$-CHR$(13>: 
RS-1 

436 1FASC(K$)-94THENKS-KS+2:IFKS 
>LEN(SK$)THENKS-1:G0T0428ELSE432 
438 IFL-U AND K$=" "THENSZ-1ELSE 
IFL-U+S AND K$<>" " AND SZ-1THEN 
HPUT(L.T)-(L+1.T+D).1:L-U:SZ-0EL 
SESZ-0: IFL>U AND KS-1 AND K$~" " 
THENHPUT(L,T)-(L+1.T+D),1:L-U:IF 
T<P AND T<191-2*D THENT-T+1+D EL 
SESK=0:GOTO430 
440 KS-KS+l:GOT062 
442 IFH-1THENU=4*INT(.25*L):RETU 
RNELSEU-8* I NT(.125*L): RETURN 
444 IFSCIO2THEN124ELSESK-0:GOTO 
430 

446 IFSK$-""THENHPUT(L.T)-(L+1.T 
+D).1:L-U ELSEKS-1:IFRS-1THENRS= 
0:GOTO428ELSEIFL+S+8>W THEN488EL 
SEK$-" ":G0T062 

448 IFT<P AND T<191-2*D THENT=T+ 
1+D:GOTO62ELSESK-0:GOTO430 
450 T-V:HSCREEN0:CLS:ATTR0.4 
452 L0CATE4.8:PRINT"Do you want 
to save on disk the rest 

of the ASCII strings of": LOCATE 
13.10:: PRINTFAS ; " : " : ZA$ : L0CATE4 . 
ll:PRINT"for later translation t 
o their font images? (Y 

/N) ": 

454 KS-INKEY$:IFK$-""THEN454 
456 IFK$-"N" OR K$-"n"THENCLOSE# 
1:G0T0168 

458 IFK$-"Y" OR K$-"y"THENLOCATE 
4.14:PRINT"The rest of the strin 
gs will be saved in REST 

:";ZA$: 

460 IFFA$-"REST"THENRE$-"TEMP"EL 

SERE$-"REST 

462 POKE&HFFD8.0:OPEN"O".#2.RES+ 

":"+ZA$ 

464 G0SUB476:IFKS>-LEN(SK$)THEN4 
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466 PRINT#2.RIGHT$(SK$.LEN(SK$)- 
KS) 

468 IFEOF(l)— ITHENCLOSEtfl: CLOSE 
#2:G0T0472 

470 G0SUB214:LINEINPUT#1.SK$:PRI 
NT#2.SK$:G0T0468 

472 IFRE$-"TEMP"THENKILL"REST/DA 
T : "+ZA$ : RENAME"TEMP/DAT : "+ZA$ TO 
" REST/ DAT :"+ZA$ 
474 G0T0168 

476 KS=KS-1:IFKS-0THENRETURNELSE 
IFMID$(SK$.KS.1)<>" "THEN476ELSE 
RETURN 

478 GOSUB212 : SK-6 : KS-1 : SC 1-2 : CLS 
:L0CATE4.8:PRINT"Type filename o 
f ASCII file you want tr 
anslated: ": : LINEINPUTFA$:Z$-RI 
GHT$( FAS . 2 ) : ZA$-"0" : I FASC( Z$ )-58 
THENZA$-RIGHT$(Z$.1):FA$-LEFT$(F 
A$.LEN(FA$)-2) 

480 POKE&HFFD8.0:OPEN"I".#1.FA$+ 
":"+ZA$: RETURN 

482 GOSUB212:CLS:LOCATEU.9:PRIN 
T"l: FULL SCREEN FILE": L0CATE11 . 
10:PRINT"2: HALF SCREEN FILE": LO 
CATE11.11 :PRINT"3: WORD PROCESSO 
R FILE":L0CATE11.12:PRINT"4: ASC 
II STRINGS 

484 G0SUB322: I FK$-"1"THENI 1-1 : GO 
SUB30:I1=0:GOTO128ELSEIFK$-"2"TH 
ENI1-1 :G0SUB34: I 1-0 : G0T0128ELSEI 
FK$-"3"THEN486ELSEIFK$="4"THENSC 
I-1:UT-U:G0SUB426:G0SUB412:G0T01 
68ELSESOUND60.5:GOTO128 
486 UT-U:G0SUB478:G0T0168 
488 HPUT(L.T)-(L+1.T+D).1:L-U:IF 
T<P AND T<191-2*D THENT-T+D+1 :GO 
T0428ELSESK$-"":G0T0448 
490 CLOSE#1:FORI=0TO2000:NEXT:GO 
T0128 

492 IFERLIN=472THEN474 
494 IFERLIN-40THEN48 
496 IFERLIN-328THENSOUND60.9:GOS 
UB328:G0T0128 

498 IFERLIN=98THENT1-T: FORI-1TOS 
F:HPUT(U.T)-(W-1.T+INT(D/SF)).4: 
T-T+I NT(D/SF): NEXT :T-T1:L-U: GOTO 
50 

500 IFERLIN-470 AND ERNO-23 THEN 
CL0SE#1:CL0SE#2:G0T0472 
502 IFERLIN-30 OR ERLIN-34 OR ER 
LIN-480THEN504ELSE506 
504 SCI=0:SOUND60.5:LOCATE5.11:P 
RINT"THERE IS NO FILE BY THAT NA 
ME":L0CATE7.13:PRINT"0N THE DISK 
IN DRIVE "::IFZ$-""THENPRINT"0" 
:GOTO490ELSEIFASC(Z$)=58THENPRIN 
TRIGHT$(Z$.1):GOTO490ELSEPRINT"0 
":GOTO490 

506 IFERLIN-26THENKILLF$+"/HRl": 
KILLF$+"/HR2":RENAME"0UTl/BIN"T0 
F$+"/HRl":RENAME"OUT2/BIN"TOF$+" 
/HR2":DRIVE0:GOTO128 
508 IFERLIN-28THENKILLF$+"/HR":R 
ENAME"OUT/BIN"TOF$+"/HR":DRIVE0: 
G0T0128 

510 IFERLIN-12THENWIDTH32:CLS:PR 
INT""::WIDTH40:CLS3:LOCATE1.8:PR 
INT"INSERT ULE DISK IN DRIVE & 
HIT SPACE"; :GOSUB322:POKE&H13FF 
,9:G0SUB12:G0T0128 
512 IFERLIN-180THENCLOSE#1:K$-"F 
":SOUND60.9:EXEC&HF8E:GOTO138 
514 G0T0334 

516 IFH-1THENU-.5*U:W=.5*W:RETUR 
NELSERETURN 

6S\ 



Submitting 

Material 
To Rainbow 



Contributions to mi-: rainbow are wel- 
come from everyone. We like to run a 
variety of programs thatare useful, help- 
ful and fun for other CoCo owners. 

WHAT TO WRITE: We are inter- 
ested in what you want to tell our read- 
ers. We accept for consideration any- 
thing that is well-written and has a prac- 
tical application for the Tandy Color 
Computer. If it interests you. it will proba- 
bly interest lots of others. However, we 
vastly prefer articles with accompany- 
ing programs that can be entered and 
run. The more unique the idea, the more 
the appeal. We have a continuing need 
for short articles with short listings. These 
are especially appealing to our many 
beginners. 

FORMAT: Program submissions 
must be on tape or disk, and it is best to 
make several saves, at least one of them 
in ASCII format. We're sorry, but we do 
not have lime to key in programs and 
debug our typing errors. All programs 
should be supported by some editorial 
commentary explaining how the pro- 
gram works. We also prefer thai edito- 
rial copy be included in ASCII format on 
the tape or disk, using any of the word 
processors currently available for the 
Color Computer. Also, please include a 
double-spaced printout of your editorial 
material and program listing. Do not 
send text in all capital letters: use upper- 
and lowercase. 

COMPENSATION: We do pay for 
submissions, based on a number of crite- 
ria. Those wishing remuneration should 
so stale when making submissions. 

For the benefit of those wanting more 
detailed information on making submis- 
sions, please send a self-addressed, 
stamped envelope (SASE) to: Submis- 
sion Guidelines, thf. rainbow. The Fal- 
soft Building. P.O. Box 385. Prospect. 
KY 40059. We will send you compre- 
hensive guidelines. 

Please do not submit material cur- 
rently submitted to another publication. 
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An important link in the CoCo community is its ability to communicate with fellow users. If questions arise, 
a fresh source of information can be invaluable. We here at the rainbow have decided to create "Intercom," 
an information exchange point for Pen Pals, CoCo Clubs and bbss. 

If you would like a Pen Pal or are running a CoCo Club or bbs, send us a letter including the information 
listed here to: The Rainbow Intercom, P.O. Box 385, Prospect, ky 40059. 

Only those parties who have signed our non-piracy "agreement form" appear in listings of Intercom. Also, 
please notify us if you want to add or delete any names on this list. 




PEN PALS 



•& I'm 18 years old. and my system includes a 64K 
CoCo 2. a CCR-81. Orchestra 90-CC. a Speech/ 
Sound Cartridge, a modem and a B/W TV set. I enjoy 
designing praclical casselte-based applications lor the 
CoCo. 1 also enjoy writing and performing music in 
English and French. I am somewhat fluent in written 
French. I will try 10 answer all legitimate letters. 

Sieve W. Buehler 

I 102 West Sierra Avenue 

Santa Ana. C A 92707-3856 

A I'm a 1 5-year-old student and own a 5 1 2K CoCo 3, 
two disk drives, a CM-8 monitor, a DMP-105 printer 
and a 2400-bps modem. I co-SysOp a BBS and love 
reading THE RAINBOW. I don't know much OS-9or 
machine language, but I'm learning. I like telecom- 
munications, word processing and games. If you can 
speak English well. 1 would be happy lo talk to you. 

Norman Gibson 

450 Wilfrid Lavigne H202 

Ayimer, PQ J9H 3W2 

Canada 

*> I want to start a club here in Madison. I'll call mine 
the Eastside CoCo Madison Club. I have a CoCo 3 
with a tape recorder and an RGB monitor. 1 also have 
a CoCo 2. If someone can provide instruction on how 
lo use my modem I would be grateful. I'm looking for 
catalogs of information, ideas and contacts. 

Mait Thornton 

102 Village Gr. Ln, E. 

Madison. WI 53704 

«&> I'm 17 years old and am looking for a pen pal. I 
enjoy using my 5 1 2K CoCo 3 with printer, disk drive. 
Slot pack, modem and Delta Pro Pack for many 
programming purposes, including school work, games 
and music. I would enjoy corresponding with anyone 
who shares my interest in computers. My other hob- 
bies include science fiction and music. I'll answer all 
letters I receive. 

Jason Leinen 

916 Beverly Ume 

Wesl Bend. WI 53095 




ARIZONA 

« Tucson Color Computer Club. Bruce Smith. 3030 
Mustang Drive. Tucson. 85708. (602) 747-7859 

CALIFORNIA 
* Color America Users Group. Jack W. Eizcnga. 



3811 N. Foster Ave.. Baldwin Park. 91706-3912. 
(818)960-8010 

COLORADO 
B Colorado Springs Color Computer Club. Bud Ward. 
1118 Claiborne Road. Colorado Springs, 80906-5513, 
(719)392-8268 

CONNECTICUT 
w Connecticut CoConut Connection. Charles Joseph 
Scanlon. I Hoskins Rd.. Apt. 8A6. Simsbury. 06070. 
(203)651-8134 

FLORIDA 
« Cross-Country Color Computer Club. Tom Tittle. 
860 Gardenia Drive. Royal Palm Beach. 334 1 1 . (407) 
798-3726 

GEORGIA 
w Atlanta Computer Society. Inc.. Alan R. Dagcs. 
4290 Bells Ferry Road. Suite 10639. Kennesaw. 30144. 
(404) 469-51 1 1 voice. (404) 636-2991 modem 

IDAHO 
W Snake River Color Computer Club, Emil Franklin. 
1750 Carmel Drive. Idaho Falls. 83403. (208) 522- 
0220 

ILLINOIS 
WGIensideColorCompuierClub.TonyPodraza. 1 19 
Adobe Circle, Carpentersville. 60110. (708) 428- 
3576 

IOWA 
« Mid Iowa CoCo, Terry Simons. 1328 48lh. Des 
Moines. 5031 1. (515) 279-2576 
KANSAS 
W The Kansas City Color Computer Users Group. 
Gay Crawford. 1601 Kiowa Drive. Olalhe. 66062, 
(913)764-9413 

KENTUCKY 
"R Hardin County Color Computer Club. Paul Ur- 
bahns. 2887 Republic Ave.. Radcliff. 40160. (502) 
351-4757 

LOUISIANA 
» The CoCo SIG. Christopher Mayeux. 20 Gibbs 
Drive. Chalmette. 70043. (504) 277-6880 voice. (504) 
277-5135 modem 

MASSACHUSETTS 
» NorthEasl CoCo Club. Jose Jouben. 440 North 
Ave., Bldg.9#210.Haverhill.OI830. (508)521-0164 

MICHIGAN 
• Greater Lansing Color Computer Users Group. E. 
Dale Knepper. P.O. Box 14114, Lansing. 48901. 
(517)626-6917 

MISSISSIPPI 
® Central Mississippi Color Computer Society. Boisy 
G. Pitre. 601 1 1-55 North. Jackson. 3921 3. (601 ) 956- 
9377 

MISSOURI 
f CoCoNuts User Group. Clyde Lloyd. 2116 N. 
Columbia. Springfield. 65803. (417) 866-8738 

NEBRASKA 
"B Bruce Gerst c/o Metro Area CoCo Club. P.O. Box 
3422. Omaha. 68103 



NEW YORK 

• Adirondack Color Computer Club. Thomas P. 
Delaney. 10 Rosewood Drive. Clifton Park. 12065. 
(518)371-4781 

NORTH CAROLINA 
B Norca Users Group. Matthew Royal. Route 2 1 Box 
906, Fayetteville. 28304. (919) 484-1230 

OHIO 
w The Columbus and Central Ohio Color Computer 
Club. Richard Hebcr. 546 Woodside Drive S.W.. 
Pataskala. 43062. (614) 927-3357 

PENNSYLVANIA 
« Pittsburgh Color Group. Ralph Marling. 309 Fra- 
zier Drive. Pittsburgh. 15235. (412) 823-7607 

RHODE ISLAND 
"B New England "CoCoNuls" Color Computer Club. 
Arthur J. Mendonca, P.O. Box 28106 North Station. 
Providence. 02908. (401 ) 272-5096 (Sig3) 

SOUTH CAROLINA 
« Spartanburg CoCo Club. Jesse W. Parris. 1 52 Bon 
Air Ave.. Spartanburg, 29303, (803) 573-9881 

SOUTH DAKOTA 
** Empire Area Color Computer Users Group of 
South Dakota. Carl Holt. P.O. Box 395. Brandon. 
57005. (605) 582-3862 

TEXAS 
» Mid Cities TRS-80 Users Group. Rob Yoder. P.O. 
Box 171566, Arlington. 76003. (817) 535-7931 

UTAH 
» Salt City CoCo Club. L. Todd Knudsen. 6357 S. 
Lotus Way. West Jordan. 84084. (801) 968-8668 

VIRGINIA 
t» Richmond Area Color Computer Organization. 
William T. Mays, Jr., 6003 Westbourne Drive. 
Richmond. 23230. (804) 282-7778 
O Southwestern Virginia Color Computer Club. Ricky 
Sutphin, Route 1 Box 20. Henry. 24102. (703) 365- 
2018 

WASHINGTON 
VBellingham OS-9 UsersGroup. Rodger Alexander. 
3404 Illinois Lane, Bellingham. 98226. (206) 734- 
5806 

• Port O' CoCo. Donald Zimmerman. 3046 Banner 
Rd. SE. Port Orchard. 98366-8810. (206) 871-6535 

WEST VIRGINIA 
w Huntington Area ColorComputer Symposium. J im 
Bush, P.O. Box 391. Usage. 25537-0391 . (304) 736- 
5314 

AUSTRALIA 
» Australian National OS-9 Users Group. Gordon 
Bentzen. CI- 8 Odin Street. Sunnybank. Queensland. 
4109.(07)344-3881 

■ Brisbane Southwest Colour Computer Users Group. 
Bob Devrics, 21 Virgo St., Inala. Queensland. 4077, 
(07)372-7816 

CANADA 

■ 4 C's (Cornwall Color Computer Club). Robert L. 
LeBrun.451 Lcilch Dr.. Cornwall. Ontario. K6H 5P5. 
(613) 932-4792 voice. (613) 936-0823 modem 
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« Lc Club D'Oridinaieur Coulcur du Quebec Inc.. 

8000 Boul. Melropolilain. Ville d'Anjou. Quebec. 

HIK IAI, (514) 729-8467 

« The Edmonlon CoCo Users Group. Lloyd Folden. 

13208-128 Avenue. Edmonlon. Albena. T5L 3H2. 

(403)426-1888 

» Monclon-Dieppc-Rivervicw CoCo Club. Philippe 

Lamin. 77 Ninlh St.. Monclon. New Brunswick. E1E 



3E5, (506) 382-7706 

w Vancouver Color Computer Club (VC3). Jordan J. 
Dobrikin. P.O. Box 76734. Postal Slalion 5. Brilish 
Columbia. VSR 557. (604) 420-6081 

GERMANY 
B OS-9 Users Group in Europe. Burghard Kin/.cl, 
Leipzigcr Ring 22A. 5042 ERFTSTADT. +49-2235- 
41069, (OS-9/6809) 



THE NETHERLANDS 

■ European OS-9 User Group. Peter Tutclaers. 
Slrijperslraai 50A. 5595 GD Lccnde. 
s88405777@hscpml.hse.nl. +31-4906-1971. (OSK) 

PUERTO RICO 
W Puerto Rico Color Computer Club. Luis R. Marti- 
nez. P.O. Box 2072. Guaynabo. 00657-7004, (809) 
799-8217 or (809) 728-2314 



State/City 



Arkansas 

Jonesboro 

Sheridan 
California 

Hollywood 

Laguna Hills 

Marysville 
Colorado 

Colorado Springs 
Connecticut 
Manchester 
Watcrbury 
Florida 
Cocoa Beach 
Hawaii 
Ft. Shafter 
Illinois 

Carpcntersvillc 
La Grange Park 
Kansas 
Beloit 
Louisiana 
Harvey 
Michigan 
Lansing 
Taylor 
New York 
Wappingers Falls 
North Carolina 
Concord 
Wilmington 
North Dakota 
Minot AFB 
Ohio 
Columbus 
Reynoldsburg 
Oklahoma 
Tccumsch 
Pennsylvania 
Conshohocken 
Johnstown 
Rhode Island 
Central Falls 
Virginia 
Fall Mills 
Richmond 
Wisconsin 
Marinette 
Canada 
Lunenburg. N.S. 
Cornwall. Ontario 



BULLETIN BOARD SYSTEMS 



BBS Name 



The 8-Bit Wonderland 
The Grant County BBS 

Zog's Cavern BBS 
Rainbow Connection 
Info Service 
09-Onlinc BBS 

The Time Safari 

Silk City BBS 
Applause BBS 

KB Enterprises- CEBBS' 

CoCo'Nuls BBS Service 

The Pinball Haven BBS 
S& VBBS 

Kansas Konneklion BBS 

The Node 3 

Benchboard BBS 
J & L's CoCo Comer 

The Dutchess CoCo 

The Stargatc BBS 
Bill's Board 

The 9-Line BBS 

Springwood BBS 

East Side Connection CEBBS 

Pat BBS-' 

Charlie's Help Line 
CoCo Electronic BBS' 

The Weather Connection II BBS 

Clem's Comer BBS J 
Tree House BBS 

Phoenix Interstate Data Systems' 

Color Nova BBS 
4C's BBS 



Access Number 



(501)931-9528 
(501)942-4047 

(213)461-7948 
(714)831-6530 

(916)742-6809 

(719)635-7228 

(203)649-9057 
(203) 754-9598 

(407) 799-3282 

(808) 845-7054 

(708) 428-8445 
(708) 352-0948 

(913)738-5613 

(504) 347-4320 

(517)394-2447 
(313)292-4713 

(914)838-1261 

(704) 788-7867 
(919)395-4366 

(701)727-6826 

(614)228-7371 
(614) 755-2492 

(405)598-5082 

(215)825-3226 
(814)535-1497 

(401 ) 728-8709 

(703)322-4053 
(804) 744-0157 

(715)732-1036 

(902)634-3095 
(613)936-0823 



Parameters 

(Spicd-Puriti-Vtord Bin-Stop IlilM 



30O/I2O0/24OO-N-S-I 
3OO/I20O/2400-N-8-1 

300/I200/2400-N-8-I 
300/1 200/2400-N-8-1 

300/I200-N-8-I 

300/1200-N-8-I 

300/1 200/2400-N-8-1 
300/I200/2400-N-8-I 

300/I200-N-8-I 

300/I200/2400-N-8-I 

300/1200/2400-N-8-I 
300/I200/2400-N-8-I 

300/1 200-N-8-1 

300/2400-N-8-I 

300/1 200/2400-N-8-1 
3O0/12OO/240O-N-8-I 

300/1 200/2400-N-8-1 

300/1200/2400-N-8-I 
300/I200/2400-N-8-1 

300/1 200-N-8-1 

300/1 200/2400-N-8-1 
300/1200/2400-N-8-1 

30O-N-8-1 

300/I200-N-8-I orN-7-l 
300/1 200/2400-N-8-1 

300/1 200/2400-N-8-1 

300/1 200-N-8-1 
3()()/l200/2400-N-8-l 

300/1 20O/24OO/96O0-N-8- 1 

300/I200/2400-N-8-I 
3O0/12O0/24OO-N-8-I 






SysOp 



Mike Smith 
Eddie Gilmore 

Alan Sheltra 
Eric Levinson 

Jim Vestal 

David Vallier 

Darren Kindberg 
Carmen Izzi, Jr. 

Kevin Bcmer 

Tommie Taylor 

Jeffrey R. Chapin 
Paul Jcrkalis 

Gary N. McCarty 

Gene Clifton 

John Evans 
Jim Snider 

Chris Serino 

Jim Brock 
Bill Medcalf 

David Hcnsley 

Edward Langenback 
John L. Wilkerson 

Pat Aldridgc 

Charles DiMartino 
Albert Baldish 

Eric Chew 

Richard Douglas Bailey 
Doug James 

Joe Boburka 

John D. Cleveland 
Mike Lcbrun 



Notes: 'KB Enterprises' CEBBS is up from 5 p.m. to 9 a.m. (EST) seven days a week. 

"Pal BBS is up 5 p.m. to 9 p.m. weekdays and 10 a.m. to 10 p.m. weekends. This new BBS is counting on you for uploads. 

'CoCo Electronic BBS is up 8 p.m. to 6 a.m. seven days a week. 

'Clem's Comer BBS is up from 6 p.m. to 1 1 p.m. seven days a week. 

■ Phoenix Interstate Data Systems has a .75/hr charge for premium services, paid in advance. 
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Not only does Tandy produce our favorite CoCo, we think it produces the best portable and 
MS-DOS computers as well. We've found that when satisfied Color Computer users decide 
to add portability or MS-DOS to their computing habits, many stick with Tandy. For these 
people we publish PCM, The Premier Personal Computer Magazine for Tandy Computer 
Users. 

Each month in PCM, you'll find information and programs for the Tandy 1 00, 1 02 and 200 
portable computers. And you'll find even more coverage for Tandy's MS-DOS machines — 
from the graphics of the 1 000 to the power of the 5000. 

PROGRAMS AND PROGRAM DISKS! 

We learned from THE RAINBOW that readers want programs to type in . so each month we 
bring you an assortment of them: games, utilities, graphics, and home and business 
applications. For those who don't have time to type in listings, we offer a companion disk with 
all the programs from the magazine. Also included in PCM each month is the Software 
Shopper, an "onmail" database service from which you can order the latest shareware 
products from our Delphi databases for Tandy MS-DOS and PC users — even if you don't have 
a modem! 

TUTORIALS AND PRODUCT REVIEWS! 

As if all this weren't enough, we offer regular tutorials on DeskMate, telecommunications 
and hardware; assembly language, BASIC and PASCAL programming tips; and in-depth 
reviews of the new software, peripherals and services as they are released. Add it all up and 
we think you'll find PCM to be the most informative and fun magazine for this market today! 



YES! Please send me a one year (12 issues) subscription to PCM for only $28.* A 
savings of 22% off the newsstand price. 

Name In order to hold down costs, we do not bill. 

My check in the amount of is enclosed. 

Charge to my: | 

J VISA J MasterCard J American Express 

I 

Acct. # 



Address 
City _ 
State _ 
ZIP 



Exp. Date 



Signature 



To order by phone (credit card orders only) call 800-847-0309, 9 a.m. to 5 p.m. EST. For other inquiries call 502- 

228-4492. 

• Canadian subscribers U.S. $38 plus 7% GST. Surface rate elsewhere $64, airmail $85. Allow 6 to 8 weeks for first 
copy. Kentucky residents add 6% sales tax. U.S. currency only, please. 

Mail to: PCM, The Falsoft Building, P.O. Box 385, Prospect, KY 40059 




Advertisers Index 



We encourage you to patronize our advertisers — ail of whom support the Tandy Color 
Computer. We will appreciate your mentioning the rainbow when you contact these firms. 



Ace 47 

Burke & Burke 35 

Burke & Burke 45 

CoCoPRO! 14 

CoCoPRO! 15 

Colorware 1 1 

Computer Plus IFC 

Dayton Associates 

of W.R. Hall, Inc 54 

Dayton Associates 

of W.R. Hall, Inc 55 

Delmar Company 19 



Delphi 59 

Delphi BC 

Eversoft Games, Ltd 33 

Frank Hogg 21 

Granite Computer Systems 43 

Hawksoft 17 

JWT Enterprises 37 

Microcom 5 

MV Systems 33 

Owl-Ware 25 

Owl-Ware 26 

Owl-Ware 27 



PCM Magazine 64 

Rainbow Back Issues 32 

Rainbow Binders 66 

Rainbow on Tape and Disk 5 1 

SpectroSystems 43 

Sundog Systems 37 

Sundog Systems IBC 

T & D Software 9 

T & D Software 39 

Trading Post 29 

Zebra Systems 17 




Call: 

Belinda Kirby 

Advertising Representative *fi^ 

(502)228-4492 - a 





□ Call: 

Kim Lewis 

Advertising Representative 

(502) 228-4492 



The Falsoft Building 
9509 U.S. Highway 42, P.O. Box 385, Prospect, KY 40059 

FAX (502) 228-5121 
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Protect 

your important magazine collection 




Distinctive, Durable, Attractive 
RAINBOW Binders 

THE RAINBOW is a viial resource lo be 
referred to again and again. Keep your 
copies of THE RAINBOW safe in our quality 
distictive binders that provide complete 
protection. 

These attractive red vinyl binders 
showcase your collection and ensure 
your RAINBOWS are in mini condition 
for future use. Each binder is richly 
embossed with the magazine's name in 
gold on the front and spine. They make 
a handsome addition to any room. 

Put and End to Clutter 

Organize your workspace with these 
tasteful binders. Spend more time with 
your CoCo and eliminate those 
frustrating searches for misplaced 
magazines. 

A set of two binders, which holds a 
full 12 issues of THE RAINBOW, is only 
SI 3.50 (plus S2.50 shipping and 
handling). 

Special Discounts 
on Past Issues 

To help you complete your collection 
of THE RAINBOW, we're offering a 
special discount on past issues of the 
magazine. 

When you place and order for six or 
more back issues of THE RAINBOW at 
the same time you order binders, you are 
entitled to SI off the regular back issue 
price. To order, please see the "Back 
Issue Information" ad in this issue. 




Know Where to Look 

You may purchase the "Official and 
Compleat Index lo THE RAINBOW" for SI 
when you purchase a set of binders. This 
comprehensive index of RAINBOW'S first three 
years (July 1981 through July 1984) is usually 
priced al S2.50. 



Yes! Please send me 

Name 

Address 

City 

State 



sel(s) of Rainbow binders 



Zip 



_l My check in the amount of 

charge to: 3 VISA □ MasterCard 

Account Number 

Expiration Date Signature 



is enclosed. 
□American Express 



/ want to take advantage of these special offers with my binder 
purchase: 

QSave SI off the single issue cover price for back issues. 
Minimum order of 6 magazines .Please enclose a back issue order 
form from a recent issue indicating magazines wanted. 

^ Purchase the Official and Compleat Index to THE 
RAINBOW" for $ I. (Regular price $2.50.) 

Special offers good only with the purchase of a RAINBOW hinder set. Binders 
are $ 1 3.50 per two-binder set plus $2.50 shipping and handling. If your order is 
to he sent via U.S. mail to a post office box or foreign country, please adil S2. 
Kentucky residents add 6'/< sales tax: Canadian reidents. 7%GST. U.S. currency 
only please. In order lo hold down non-editorial costs, we do not bill. 

Mail to: Rainbow Binders. The Kalsoft Building, P.O. Box 385, 
Prospect KY 40059. For credit card orders call(800) 847-0309, 
9a.m. to 5 p.m. EST. All other inquiries call (502) 228-4492 




Better men than you have railed ins oiwst, bui lire hand ol llw good 
princess rneida is loo much lo resist! Stolen bv Ihe evil necromancer 
Divinax. she has been secreted tat trom prying eyes and ii is now up 
lo you lo regain ihe pieces ol Iho mystical Lile Force and save the fair 
lady Tbe Ouesl lor Theida Is an outstanding arcade program that 
combines action and adventure to bring you an incredible video game 
playing experience Travel throughout over 500 diflerenl screens 
searching lor magical ob|acis and spells, lighting horrible crealures. 
and gathering the various parts ol ihe Life Force guarded by ever- 
increaslng terrors You'll enioy Ihe highesl quality 320x200 resolu- 
tion 16 color graphics and digital sound ellects list you've come to 
expect Horn Sundog Systems The game play Is last and luiious. and 
only you can resoue the princess and complete the LEGENO OF 
THELOA! Req 128K CoCo 3. disk 
drive, and joystick (2-butlon 
loystick supported). 

Hint book now available lor Theida' Conlains clues, maps, and even 
a BASIC program to modlty your own characters! S4.95 



In the year 2671 , a mysterious oblect landed on Earth, heralding Ihe 
alien invasion ot the Rod Falcon Only two courageous soldiers nave a 
hope ol stemming this alien inlesuiion. Armed wilh your military 
training and the latest weapon technology, you ano a Hiend must 
light back Ule horde Sundog Systems presents our second 5I2K 
game. The Contru You'll see why we decided to use S12K on this 
proiect 1 Amazing graphics with 320x225 resolution, 16 color lull 
screen animation and horizontal smooth scrolling! Background digilal 
sound ellects and real-time music! One or two player action AT THE 
SAME TIME! You'll agree thai this Is one ol the best arcade games 
yet lor your 5I2K CoCo 3. Needless lo say playing hero won'l be 
easy; playing The Coniras will be 
tougher! Req. 512K CoCo 3. disk 
drive, and 2-button loystick 



$34.95 



$34.95 



The superior lechnology ot Ihe evil Overlords has ensnared yet 
another innocent planet, however, Ihls one contains the Crystal City, 
bastion ol democracy and Independence. Eanh has had enough! 
Break through level upon level of their vlilually invulnerable 
defenses, deleal the end guardians, and mako your way ever closer 
to treeing the slaves ot the Crystal City! This amazing arcade game is 
an achievement in its own right Full 12BK/512K utilization! Super 
fasl horizontal hardware scrolling on Ihe 12BK computer! Wild digital 
sound ellects and background music score! 30 minules. or over 30 
megabytes, ot non-repealing 320x200 resolution, 16 color graphics! 
This game has ii all; order a demo disk lo see il llrsl! Can you save 
the Crystal Cily trom unbeatable 
loes? Req 128K CoCo 3. disk 
drive, and joystick 



$34.95 
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You've raved about Ihis 512K arcade 
game! The graphics and animation are 
amazing! You've got lo hear the digilal : 
sounds! 512K (lhree disks) packed wilh 
excitement. 512K CoCo 3 only $34.95 



This martial arts arcade game remains a 
CoCo 3 phenomenon. One ol our best sell- 
ers lo dale! Play Ihe incredible combat ex- 
perience that you've been missing, and call 
lor ihe availability ol ihe OS-9 version. 
12BK CoCo 3 action. S29.95. 

OS-9 Version Now Available 



ALSO AVAILAB 



You have been chosen to pilot Ihe spacecralt wielding Ihe plulonium 
plasma laser against the nefarious insectolds, Ihe Zenlans. These 
bugs have been ripping off Ihe space Irade lines lor years; now 
they're about to llnd a victim who can light back! Beat back the 
swarm ol pesls lo Iheir home planet Zenix, and use the laser lo end 
Ihe menace once and tor all. Zenix is a llghlning lasl arcade game lor 
ihe 128K CoCo 3. The 320x225 16 color graphics are amazing, as 
are me digilal background music score and ellecls, all on a 128K 
compuler 1 The fasl action and game play will astound you In this 
GALAGA ol extermlnallon Plug in your loystick and strap in lor the 
ride ol your life' Call lo ordor a demo 
disk lo see Ihe aclion betore you 
buy! Req. 128K CoCo 3, disk drive, 
and joystick. 



Hall oi the King 1,2, or 3 

CoCo 1-3 $29.95 ea. 

Hail ofthe King Trilogy $74.95 



While Fire of Eternity 
CoCo 1 - 3 

Dragon Blade 
CoCo 1 - 3 



Kung-Fu Dude 

CoCo 1 - 3 



This 128K'512K sound sequencing system 
has become an Immensely popular pro- 
gram. Creale musical scores using poly- 
phonic digitized sounds and a user-friend- 
ly point ano click editor. Call to order Ihe 
SoundTrax demo program, and gel 10% oft ; 
your purchase with receipt. $34.95 
Now Available; SoundTrax inslrument sam- 
ple disks! Guitars, strings, woodwinds, 
and jusl plain weird Instruments for your 
composing pleasure. Completely compati- 
ble with the SoundTrax system 3 Hippy (2 
sides) disks lull ol sounds. $12.95 each or 
$29.95 lor all lhree. 



$24.95 



$29.95 



Visa. Mastercard, Check. Money Order, and COD 
(USA only, please) accepted All loreign orders 
must de sent in US currency Money Orders Include 
$2.50 lor shipping in USA and Canada $5.00 
Foreign S3 00 exlra for COD orders PA residents 
add 6% sales tax Dealer inquiries welcome 
Authors we're looking tor new software 1 



Champion 

CoCo 1 - 3 

Paladin's Legacy 
CoCo 1 - 3 

Warrior King 

CoCo 3 

In Quest of the Star Lord 

CoCo 3 $34.95 

Hint Sheet $ 3.95 



$19.95 
$19.95 
$19,95 
$24.95 
$29.95 




sv.sfwr>s CJ 



systems 



We've 
Moved! 



P.O. Box 766 
Manassas, VA 22111 
703/330-8989 




Being online never felt so fine, 

Join the online network with personality. The most interesting 
conferences. 10,000 programs you can download for your own 
use. All the most popular services. 



Two membership plans: $6 an hour or 
$ 1 an hour with the 20/20 Advantage. 
Join us online, the water's fine. 




ree Membershi 





Dial by modem, 

1-800-365-4636 

Press return. At password, 
type RB22 



DELPHI 



Voice, 1-800-695-4005 
617-491-3393 



■ 



